;;;; Generated on 10/20/2021 at 09:40:04 (UTC+10).

(COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0)
                      COMMON-LISP:SAFETY COMMON-LISP:DEBUG
                      COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM (COMMON-LISP:INLINE %%ZUNMTR %ZUNMTR
                      %%SSYEVX_2STAGE %SSYEVX_2STAGE %%DGBTF2 %DGBTF2
                      %%DLARSCL2 %DLARSCL2 %%DPTSV %DPTSV %%ZLARFT
                      %ZLARFT %%SLASDA %SLASDA %%SPOEQUB %SPOEQUB
                      %%ZPPSVX %ZPPSVX %%DTZRZF %DTZRZF %%DSYRFSX
                      %DSYRFSX %%CHETRF %CHETRF %%SLAEV2 %SLAEV2
                      %%CTREVC3 %CTREVC3 %%CTRSYL %CTRSYL %%SGGEV3
                      %SGGEV3 %%SGETRF2 %SGETRF2 %%STGEX2 %STGEX2
                      %%SPPTRI %SPPTRI %%CPTSVX %CPTSVX %%DSYGS2
                      %DSYGS2 %%CLA_PORPVGRW %CLA_PORPVGRW %%SLARZ
                      %SLARZ %%CHECON %CHECON %%SOPMTR %SOPMTR %%STFSM
                      %STFSM %%ZLAIC1 %ZLAIC1 %%DTREXC %DTREXC %%SGTTRS
                      %SGTTRS %%CLATDF %CLATDF %%ZLAQGB %ZLAQGB
                      %%CGERFS %CGERFS %%SLAMRG %SLAMRG %%ZTRCON
                      %ZTRCON %%DGESVD %DGESVD %%DSYTF2_RK %DSYTF2_RK
                      %%SPOSVX %SPOSVX %%CHPGST %CHPGST %%DSTEV %DSTEV
                      %%CLAG2Z %CLAG2Z %%SSPSVX %SSPSVX %%DSBGV %DSBGV
                      %%ZUNMLQ %ZUNMLQ %%SGESVXX %SGESVXX %%ZLAQHE
                      %ZLAQHE %%ZLAESY %ZLAESY %%SDISNA %SDISNA
                      %%DGEHRD %DGEHRD %%DGETRI %DGETRI %%DPPTRF
                      %DPPTRF %%SSFRK %SSFRK %%DTBCON %DTBCON %%ZUNGRQ
                      %ZUNGRQ %%DGEQRFP %DGEQRFP %%STRTRS %STRTRS
                      %%ZGESVX %ZGESVX %%SGEEV %SGEEV %%SSYGST %SSYGST
                      %%SLARRK %SLARRK %%CLAQR1 %CLAQR1 %%SPPRFS
                      %SPPRFS %%DLALSD %DLALSD %%DLANTR %DLANTR
                      %%DLASET %DLASET %%ZSYSVXX %ZSYSVXX %%ZLARZT
                      %ZLARZT %%SSTERF %SSTERF %%SSYTF2_RK %SSYTF2_RK
                      %%ZSPMV %ZSPMV %%DSYTRF_AA %DSYTRF_AA %%CGEEV
                      %CGEEV %%ZGSVJ0 %ZGSVJ0 %%ZTGSJA %ZTGSJA %%CLATPS
                      %CLATPS %%SLANGE %SLANGE %%SLA_SYRFSX_EXTENDED
                      %SLA_SYRFSX_EXTENDED %%ZLAQHB %ZLAQHB %%DLASDQ
                      %DLASDQ %%ZGGGLM %ZGGGLM %%CTRTTP %CTRTTP
                      %%ZPFTRI %ZPFTRI %%CSPRFS %CSPRFS %%STREVC3
                      %STREVC3 %%SLARRD %SLARRD %%SGETRS %SGETRS
                      %%STFTTP %STFTTP %%ZSYTRS %ZSYTRS %%SGGHD3
                      %SGGHD3 %%CTPTRS %CTPTRS %%SSYTRS_AA %SSYTRS_AA
                      %%ZHPSV %ZHPSV %%CPBTRS %CPBTRS %%SGGBAK %SGGBAK
                      %%ZLARTG %ZLARTG %%DLASD3 %DLASD3 %%DTPLQT2
                      %DTPLQT2 %%CLAQSB %CLAQSB %%ZLAHEF_AA %ZLAHEF_AA
                      %%ZSYRFSX %ZSYRFSX %%SORM22 %SORM22 %%SGERFSX
                      %SGERFSX %%ZSTEDC %ZSTEDC %%ZGGRQF %ZGGRQF
                      %%SLALS0 %SLALS0 %%DTPRFB %DTPRFB %%ILAPREC
                      %ILAPREC %%SPPEQU %SPPEQU %%DLANGT %DLANGT
                      %%SGEQL2 %SGEQL2 %%ZLA_GERCOND_C %ZLA_GERCOND_C
                      %%SLAPMR %SLAPMR %%DGGES3 %DGGES3 %%ZLA_HERCOND_X
                      %ZLA_HERCOND_X %%SSYGS2 %SSYGS2 %%SLAED9 %SLAED9
                      %%ZSYMV %ZSYMV %%ZLAED8 %ZLAED8 %%DLASQ5 %DLASQ5
                      %%CLASET %CLASET %%ZPOSV %ZPOSV %%DSYSV_RK
                      %DSYSV_RK %%ZGEHRD %ZGEHRD %%ZGECON %ZGECON
                      %%SSPEV %SSPEV %%ZLA_GERFSX_EXTENDED
                      %ZLA_GERFSX_EXTENDED %%SLAED7 %SLAED7 %%ZGEMLQT
                      %ZGEMLQT %%CGBCON %CGBCON %%SPORFSX %SPORFSX
                      %%ZHPGV %ZHPGV %%ILAZLR %ILAZLR %%ZLARSCL2
                      %ZLARSCL2 %%DORCSD2BY1 %DORCSD2BY1 %%DLAGV2
                      %DLAGV2 %%CHPGV %CHPGV %%DGELQT %DGELQT %%ZLAED0
                      %ZLAED0 %%CLAQGB %CLAQGB %%CHESV %CHESV %%CLAHQR
                      %CLAHQR %%CPPTRI %CPPTRI %%SLAEIN %SLAEIN
                      %%DSTEVX %DSTEVX %%ZUNCSD %ZUNCSD %%DSYRFS
                      %DSYRFS %%CSPMV %CSPMV %%CPTEQR %CPTEQR %%DGESC2
                      %DGESC2 %%ZGETRF2 %ZGETRF2 %%ZHETRD %ZHETRD
                      %%SSYTF2_ROOK %SSYTF2_ROOK %%ZHPEVX %ZHPEVX
                      %%CHEGS2 %CHEGS2 %%SLASQ5 %SLASQ5 %%CPPEQU
                      %CPPEQU %%SPTSV %SPTSV %%ZHETRD_HE2HB
                      %ZHETRD_HE2HB %%CLARZB %CLARZB %%DSYTRS_ROOK
                      %DSYTRS_ROOK %%SGBTRS %SGBTRS %%CSYCONVF
                      %CSYCONVF %%ZTRTTF %ZTRTTF %%CLA_GBRPVGRW
                      %CLA_GBRPVGRW %%CLASCL %CLASCL %%ZLANSB %ZLANSB
                      %%CGEEQUB %CGEEQUB %%CUNBDB5 %CUNBDB5 %%ZLAEV2
                      %ZLAEV2 %%DLASY2 %DLASY2 %%ZLAHEF %ZLAHEF
                      %%DSPGST %DSPGST %%CLANHS %CLANHS %%ZGETRS
                      %ZGETRS %%DLAED5 %DLAED5 %%ZPOSVX %ZPOSVX
                      %%SGGES3 %SGGES3 %%CUNGQL %CUNGQL %%SLASQ1
                      %SLASQ1 %%DTPCON %DTPCON %%DLAGTM %DLAGTM
                      %%SLAQSB %SLAQSB %%SLARFG %SLARFG %%SLATRZ
                      %SLATRZ %%SLATBS %SLATBS %%CLA_GERCOND_X
                      %CLA_GERCOND_X %%CTGSYL %CTGSYL %%DLASYF_RK
                      %DLASYF_RK %%SLASDQ %SLASDQ %%ZSYTF2_RK
                      %ZSYTF2_RK %%ZLAPMR %ZLAPMR %%DGESDD %DGESDD
                      %%SLANST %SLANST %%SPFTRI %SPFTRI %%DSYGVD
                      %DSYGVD %%SPBSTF %SPBSTF %%DLATBS %DLATBS
                      %%ZTRTRI %ZTRTRI %%ZHBGVD %ZHBGVD %%ZLAQPS
                      %ZLAQPS %%CLAQR3 %CLAQR3 %%DGBSV %DGBSV %%CUNGRQ
                      %CUNGRQ %%ZHBEVD_2STAGE %ZHBEVD_2STAGE %%ZGBTRF
                      %ZGBTRF %%DGEQLF %DGEQLF %%CLAR1V %CLAR1V
                      %%ZPBTF2 %ZPBTF2 %%ZHESVXX %ZHESVXX %%DPOTRF
                      %DPOTRF %%CGELQF %CGELQF %%DLARGV %DLARGV
                      %%ZUNMRQ %ZUNMRQ %%DLAGTS %DLAGTS %%DGEMLQT
                      %DGEMLQT %%SSYRFSX %SSYRFSX %%STRRFS %STRRFS
                      %%SLASQ2 %SLASQ2 %%DSYSVX %DSYSVX %%SGESVDX
                      %SGESVDX %%SGELQF %SGELQF %%CGELSS %CGELSS
                      %%DGGRQF %DGGRQF %%DLARRR %DLARRR %%ZHESV_AA
                      %ZHESV_AA %%CGBRFS %CGBRFS %%CGSVJ1 %CGSVJ1
                      %%ZTGEXC %ZTGEXC %%DGERFS %DGERFS %%STGSNA
                      %STGSNA %%ZGGES %ZGGES %%CGECON %CGECON %%CGTCON
                      %CGTCON %%SRSCL %SRSCL %%DLASSQ %DLASSQ
                      %%SSYCONVF_ROOK %SSYCONVF_ROOK %%CTPLQT2 %CTPLQT2
                      %%SGEQRT %SGEQRT %%ZGEQR2 %ZGEQR2 %%SLASYF
                      %SLASYF %%ZSPSV %ZSPSV %%CLAQHE %CLAQHE %%DGEBAK
                      %DGEBAK %%CHPEVD %CHPEVD %%DSBGST %DSBGST
                      %%DHSEQR %DHSEQR %%SLARTGS %SLARTGS %%ZHESWAPR
                      %ZHESWAPR %%CLAED0 %CLAED0))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMTR "zunmtr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMTR
    (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15882 ':INT32) (N-REF15883 ':INT32)
                              (LDA-REF15885 ':INT32)
                              (LDC-REF15888 ':INT32)
                              (LWORK-REF15890 ':INT32)
                              (INFO-REF15891 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15882 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15883 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15885 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15888 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15890 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15891 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15884 A)
                                            (TAU-REF15886 TAU)
                                            (C-REF15887 C)
                                            (WORK-REF15889 WORK))
      (%%ZUNMTR SIDE UPLO TRANS M-REF15882 N-REF15883 A-REF15884
       LDA-REF15885 TAU-REF15886 C-REF15887 LDC-REF15888 WORK-REF15889
       LWORK-REF15890 INFO-REF15891))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEVX_2STAGE "ssyevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEVX_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK LWORK
     IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15895 ':INT32)
                              (LDA-REF15897 ':INT32)
                              (VL-REF15898 ':FLOAT)
                              (VU-REF15899 ':FLOAT)
                              (IL-REF15900 ':INT32)
                              (IU-REF15901 ':INT32)
                              (ABSTOL-REF15902 ':FLOAT)
                              (M-REF15903 ':INT32)
                              (LDZ-REF15906 ':INT32)
                              (LWORK-REF15908 ':INT32)
                              (INFO-REF15911 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15895 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15897 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15898 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15899 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15900 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15901 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15902 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15903 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15906 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15908 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15911 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15896 A)
                                            (W-REF15904 W)
                                            (Z-REF15905 Z)
                                            (WORK-REF15907 WORK)
                                            (IWORK-REF15909 IWORK)
                                            (IFAIL-REF15910 IFAIL))
      (%%SSYEVX_2STAGE JOBZ RANGE UPLO N-REF15895 A-REF15896
       LDA-REF15897 VL-REF15898 VU-REF15899 IL-REF15900 IU-REF15901
       ABSTOL-REF15902 M-REF15903 W-REF15904 Z-REF15905 LDZ-REF15906
       WORK-REF15907 LWORK-REF15908 IWORK-REF15909 IFAIL-REF15910
       INFO-REF15911))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBTF2 "dgbtf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15912 ':INT32) (N-REF15913 ':INT32)
                              (KL-REF15914 ':INT32)
                              (KU-REF15915 ':INT32)
                              (LDAB-REF15917 ':INT32)
                              (INFO-REF15919 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15912 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15913 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF15914 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF15915 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15917 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15919 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15916 AB)
                                            (IPIV-REF15918 IPIV))
      (%%DGBTF2 M-REF15912 N-REF15913 KL-REF15914 KU-REF15915
       AB-REF15916 LDAB-REF15917 IPIV-REF15918 INFO-REF15919))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARSCL2 "dlarscl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARSCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15920 ':INT32) (N-REF15921 ':INT32)
                              (LDX-REF15924 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15920 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15921 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15924 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15922 D)
                                            (X-REF15923 X))
      (%%DLARSCL2 M-REF15920 N-REF15921 D-REF15922 X-REF15923
       LDX-REF15924))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPTSV "dptsv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15925 ':INT32)
                              (NRHS-REF15926 ':INT32)
                              (LDB-REF15930 ':INT32)
                              (INFO-REF15931 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15925 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15926 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15930 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15931 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15927 D)
                                            (E-REF15928 E)
                                            (B-REF15929 B))
      (%%DPTSV N-REF15925 NRHS-REF15926 D-REF15927 E-REF15928
       B-REF15929 LDB-REF15930 INFO-REF15931))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARFT "zlarft_")
  ((DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15934 ':INT32) (K-REF15935 ':INT32)
                              (LDV-REF15937 ':INT32)
                              (LDT-REF15940 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15934 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15935 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF15937 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15940 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF15936 V)
                                            (TAU-REF15938 TAU)
                                            (T-REF15939 T))
      (%%ZLARFT DIRECT STOREV N-REF15934 K-REF15935 V-REF15936
       LDV-REF15937 TAU-REF15938 T-REF15939 LDT-REF15940))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASDA "slasda_")
  ((ICOMPQ :FOREIGN-ADDRESS) (SMLSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVNUM :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASDA
    (ICOMPQ SMLSIZ N SQRE D E U LDU VT K DIFL DIFR Z POLES GIVPTR
     GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF15941 ':INT32)
                              (SMLSIZ-REF15942 ':INT32)
                              (N-REF15943 ':INT32)
                              (SQRE-REF15944 ':INT32)
                              (LDU-REF15948 ':INT32)
                              (LDGCOL-REF15957 ':INT32)
                              (INFO-REF15964 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF15941 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF15942 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15943 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF15944 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF15948 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF15957 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15964 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15945 D)
                                            (E-REF15946 E)
                                            (U-REF15947 U)
                                            (VT-REF15949 VT)
                                            (K-REF15950 K)
                                            (DIFL-REF15951 DIFL)
                                            (DIFR-REF15952 DIFR)
                                            (Z-REF15953 Z)
                                            (POLES-REF15954 POLES)
                                            (GIVPTR-REF15955 GIVPTR)
                                            (GIVCOL-REF15956 GIVCOL)
                                            (PERM-REF15958 PERM)
                                            (GIVNUM-REF15959 GIVNUM)
                                            (C-REF15960 C)
                                            (S-REF15961 S)
                                            (WORK-REF15962 WORK)
                                            (IWORK-REF15963 IWORK))
      (%%SLASDA ICOMPQ-REF15941 SMLSIZ-REF15942 N-REF15943
       SQRE-REF15944 D-REF15945 E-REF15946 U-REF15947 LDU-REF15948
       VT-REF15949 K-REF15950 DIFL-REF15951 DIFR-REF15952 Z-REF15953
       POLES-REF15954 GIVPTR-REF15955 GIVCOL-REF15956 LDGCOL-REF15957
       PERM-REF15958 GIVNUM-REF15959 C-REF15960 S-REF15961
       WORK-REF15962 IWORK-REF15963 INFO-REF15964))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOEQUB "spoequb_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15965 ':INT32)
                              (LDA-REF15967 ':INT32)
                              (SCOND-REF15969 ':FLOAT)
                              (AMAX-REF15970 ':FLOAT)
                              (INFO-REF15971 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15965 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15967 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15969 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15970 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15971 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15966 A)
                                            (S-REF15968 S))
      (%%SPOEQUB N-REF15965 A-REF15966 LDA-REF15967 S-REF15968
       SCOND-REF15969 AMAX-REF15970 INFO-REF15971))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPPSVX "zppsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPPSVX
    (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR WORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15974 ':INT32)
                              (NRHS-REF15975 ':INT32)
                              (LDB-REF15981 ':INT32)
                              (LDX-REF15983 ':INT32)
                              (RCOND-REF15984 ':DOUBLE)
                              (INFO-REF15989 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15974 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15975 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15981 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15983 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15984 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15989 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15976 AP)
                                            (AFP-REF15977 AFP)
                                            (S-REF15979 S)
                                            (B-REF15980 B)
                                            (X-REF15982 X)
                                            (FERR-REF15985 FERR)
                                            (BERR-REF15986 BERR)
                                            (WORK-REF15987 WORK)
                                            (RWORK-REF15988 RWORK))
      (%%ZPPSVX FACT UPLO N-REF15974 NRHS-REF15975 AP-REF15976
       AFP-REF15977 EQUED S-REF15979 B-REF15980 LDB-REF15981 X-REF15982
       LDX-REF15983 RCOND-REF15984 FERR-REF15985 BERR-REF15986
       WORK-REF15987 RWORK-REF15988 INFO-REF15989))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTZRZF "dtzrzf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTZRZF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15990 ':INT32) (N-REF15991 ':INT32)
                              (LDA-REF15993 ':INT32)
                              (LWORK-REF15996 ':INT32)
                              (INFO-REF15997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15990 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15991 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15993 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15996 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15992 A)
                                            (TAU-REF15994 TAU)
                                            (WORK-REF15995 WORK))
      (%%DTZRZF M-REF15990 N-REF15991 A-REF15992 LDA-REF15993
       TAU-REF15994 WORK-REF15995 LWORK-REF15996 INFO-REF15997))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYRFSX "dsyrfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYRFSX
    (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16000 ':INT32)
                              (NRHS-REF16001 ':INT32)
                              (LDA-REF16003 ':INT32)
                              (LDAF-REF16005 ':INT32)
                              (LDB-REF16009 ':INT32)
                              (LDX-REF16011 ':INT32)
                              (RCOND-REF16012 ':DOUBLE)
                              (N_ERR_BNDS-REF16014 ':INT32)
                              (NPARAMS-REF16017 ':INT32)
                              (INFO-REF16021 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16000 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16001 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16003 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16005 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16009 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16011 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16012 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16014 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16017 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16021 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16002 A)
                                            (AF-REF16004 AF)
                                            (IPIV-REF16006 IPIV)
                                            (S-REF16007 S)
                                            (B-REF16008 B)
                                            (X-REF16010 X)
                                            (BERR-REF16013 BERR)
                                            (ERR_BNDS_NORM-REF16015
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16016
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF16018 PARAMS)
                                            (WORK-REF16019 WORK)
                                            (IWORK-REF16020 IWORK))
      (%%DSYRFSX UPLO EQUED N-REF16000 NRHS-REF16001 A-REF16002
       LDA-REF16003 AF-REF16004 LDAF-REF16005 IPIV-REF16006 S-REF16007
       B-REF16008 LDB-REF16009 X-REF16010 LDX-REF16011 RCOND-REF16012
       BERR-REF16013 N_ERR_BNDS-REF16014 ERR_BNDS_NORM-REF16015
       ERR_BNDS_COMP-REF16016 NPARAMS-REF16017 PARAMS-REF16018
       WORK-REF16019 IWORK-REF16020 INFO-REF16021))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRF "chetrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16023 ':INT32)
                              (LDA-REF16025 ':INT32)
                              (LWORK-REF16028 ':INT32)
                              (INFO-REF16029 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16025 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16028 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16029 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16024 A)
                                            (IPIV-REF16026 IPIV)
                                            (WORK-REF16027 WORK))
      (%%CHETRF UPLO N-REF16023 A-REF16024 LDA-REF16025 IPIV-REF16026
       WORK-REF16027 LWORK-REF16028 INFO-REF16029))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAEV2 "slaev2_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (RT1 :FOREIGN-ADDRESS) (RT2 :FOREIGN-ADDRESS) (CS1 :FOREIGN-ADDRESS)
   (SN1 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEV2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF16030 ':FLOAT) (B-REF16031 ':FLOAT)
                              (C-REF16032 ':FLOAT)
                              (RT1-REF16033 ':FLOAT)
                              (RT2-REF16034 ':FLOAT)
                              (CS1-REF16035 ':FLOAT)
                              (SN1-REF16036 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF16030 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF16031 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF16032 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF16033 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF16034 :FLOAT) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF16035 :FLOAT) CS1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF16036 :FLOAT) SN1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAEV2 A-REF16030 B-REF16031 C-REF16032 RT1-REF16033
       RT2-REF16034 CS1-REF16035 SN1-REF16036))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTREVC3 "ctrevc3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTREVC3
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK RWORK
     LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREVC3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16040 ':INT32)
                              (LDT-REF16042 ':INT32)
                              (LDVL-REF16044 ':INT32)
                              (LDVR-REF16046 ':INT32)
                              (MM-REF16047 ':INT32)
                              (M-REF16048 ':INT32)
                              (LWORK-REF16050 ':INT32)
                              (LRWORK-REF16052 ':INT32)
                              (INFO-REF16053 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16040 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF16042 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF16044 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF16046 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF16047 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16048 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16050 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF16052 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16053 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF16039 SELECT)
                                            (T-REF16041 T)
                                            (VL-REF16043 VL)
                                            (VR-REF16045 VR)
                                            (WORK-REF16049 WORK)
                                            (RWORK-REF16051 RWORK))
      (%%CTREVC3 SIDE HOWMNY SELECT-REF16039 N-REF16040 T-REF16041
       LDT-REF16042 VL-REF16043 LDVL-REF16044 VR-REF16045 LDVR-REF16046
       MM-REF16047 M-REF16048 WORK-REF16049 LWORK-REF16050
       RWORK-REF16051 LRWORK-REF16052 INFO-REF16053))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRSYL "ctrsyl_")
  ((TRANA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ISGN :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRSYL
    (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF16056 ':INT32)
                              (M-REF16057 ':INT32) (N-REF16058 ':INT32)
                              (LDA-REF16060 ':INT32)
                              (LDB-REF16062 ':INT32)
                              (LDC-REF16064 ':INT32)
                              (SCALE-REF16065 ':FLOAT)
                              (INFO-REF16066 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF16056 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16057 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16060 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16062 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF16064 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF16065 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16066 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16059 A)
                                            (B-REF16061 B)
                                            (C-REF16063 C))
      (%%CTRSYL TRANA TRANB ISGN-REF16056 M-REF16057 N-REF16058
       A-REF16059 LDA-REF16060 B-REF16061 LDB-REF16062 C-REF16063
       LDC-REF16064 SCALE-REF16065 INFO-REF16066))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGEV3 "sggev3_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGEV3
    (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR LDVR WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEV3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16069 ':INT32)
                              (LDA-REF16071 ':INT32)
                              (LDB-REF16073 ':INT32)
                              (LDVL-REF16078 ':INT32)
                              (LDVR-REF16080 ':INT32)
                              (LWORK-REF16082 ':INT32)
                              (INFO-REF16083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16069 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16071 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16073 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF16078 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF16080 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16082 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16070 A)
                                            (B-REF16072 B)
                                            (ALPHAR-REF16074 ALPHAR)
                                            (ALPHAI-REF16075 ALPHAI)
                                            (BETA-REF16076 BETA)
                                            (VL-REF16077 VL)
                                            (VR-REF16079 VR)
                                            (WORK-REF16081 WORK))
      (%%SGGEV3 JOBVL JOBVR N-REF16069 A-REF16070 LDA-REF16071
       B-REF16072 LDB-REF16073 ALPHAR-REF16074 ALPHAI-REF16075
       BETA-REF16076 VL-REF16077 LDVL-REF16078 VR-REF16079
       LDVR-REF16080 WORK-REF16081 LWORK-REF16082 INFO-REF16083))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGETRF2 "sgetrf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16084 ':INT32) (N-REF16085 ':INT32)
                              (LDA-REF16087 ':INT32)
                              (INFO-REF16089 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16084 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16087 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16089 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16086 A)
                                            (IPIV-REF16088 IPIV))
      (%%SGETRF2 M-REF16084 N-REF16085 A-REF16086 LDA-REF16087
       IPIV-REF16088 INFO-REF16089))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STGEX2 "stgex2_")
  ((WANTQ :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (J1 :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STGEX2
    (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 N1 N2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEX2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF16090 ':INT32)
                              (WANTZ-REF16091 ':INT32)
                              (N-REF16092 ':INT32)
                              (LDA-REF16094 ':INT32)
                              (LDB-REF16096 ':INT32)
                              (LDQ-REF16098 ':INT32)
                              (LDZ-REF16100 ':INT32)
                              (J1-REF16101 ':INT32)
                              (N1-REF16102 ':INT32)
                              (N2-REF16103 ':INT32)
                              (LWORK-REF16105 ':INT32)
                              (INFO-REF16106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF16090 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF16091 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16092 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16094 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16096 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF16098 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16100 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF16101 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF16102 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF16103 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16105 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16093 A)
                                            (B-REF16095 B)
                                            (Q-REF16097 Q)
                                            (Z-REF16099 Z)
                                            (WORK-REF16104 WORK))
      (%%STGEX2 WANTQ-REF16090 WANTZ-REF16091 N-REF16092 A-REF16093
       LDA-REF16094 B-REF16095 LDB-REF16096 Q-REF16097 LDQ-REF16098
       Z-REF16099 LDZ-REF16100 J1-REF16101 N1-REF16102 N2-REF16103
       WORK-REF16104 LWORK-REF16105 INFO-REF16106))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPTRI "spptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16108 ':INT32)
                              (INFO-REF16110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16109 AP))
      (%%SPPTRI UPLO N-REF16108 AP-REF16109 INFO-REF16110))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPTSVX "cptsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (EF :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPTSVX
    (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    EF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16112 ':INT32)
                              (NRHS-REF16113 ':INT32)
                              (LDB-REF16119 ':INT32)
                              (LDX-REF16121 ':INT32)
                              (RCOND-REF16122 ':FLOAT)
                              (INFO-REF16127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16112 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16113 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16119 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16121 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16122 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16114 D)
                                            (E-REF16115 E)
                                            (DF-REF16116 DF)
                                            (EF-REF16117 EF)
                                            (B-REF16118 B)
                                            (X-REF16120 X)
                                            (FERR-REF16123 FERR)
                                            (BERR-REF16124 BERR)
                                            (WORK-REF16125 WORK)
                                            (RWORK-REF16126 RWORK))
      (%%CPTSVX FACT N-REF16112 NRHS-REF16113 D-REF16114 E-REF16115
       DF-REF16116 EF-REF16117 B-REF16118 LDB-REF16119 X-REF16120
       LDX-REF16121 RCOND-REF16122 FERR-REF16123 BERR-REF16124
       WORK-REF16125 RWORK-REF16126 INFO-REF16127))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYGS2 "dsygs2_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16128 ':INT32)
                              (N-REF16130 ':INT32)
                              (LDA-REF16132 ':INT32)
                              (LDB-REF16134 ':INT32)
                              (INFO-REF16135 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16128 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16130 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16132 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16134 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16135 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16131 A)
                                            (B-REF16133 B))
      (%%DSYGS2 ITYPE-REF16128 UPLO N-REF16130 A-REF16131 LDA-REF16132
       B-REF16133 LDB-REF16134 INFO-REF16135))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_PORPVGRW "cla_porpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NCOLS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF16137 ':INT32)
                              (LDA-REF16139 ':INT32)
                              (LDAF-REF16141 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF16137 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16139 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16141 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16138 A)
                                            (AF-REF16140 AF)
                                            (WORK-REF16142 WORK))
      (%%CLA_PORPVGRW UPLO NCOLS-REF16137 A-REF16138 LDA-REF16139
       AF-REF16140 LDAF-REF16141 WORK-REF16142))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARZ "slarz_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (INCV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16144 ':INT32) (N-REF16145 ':INT32)
                              (L-REF16146 ':INT32)
                              (INCV-REF16148 ':INT32)
                              (TAU-REF16149 ':FLOAT)
                              (LDC-REF16151 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16144 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF16146 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF16148 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF16149 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF16151 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF16147 V)
                                            (C-REF16150 C)
                                            (WORK-REF16152 WORK))
      (%%SLARZ SIDE M-REF16144 N-REF16145 L-REF16146 V-REF16147
       INCV-REF16148 TAU-REF16149 C-REF16150 LDC-REF16151
       WORK-REF16152))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHECON "checon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHECON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16154 ':INT32)
                              (LDA-REF16156 ':INT32)
                              (ANORM-REF16158 ':FLOAT)
                              (RCOND-REF16159 ':FLOAT)
                              (INFO-REF16161 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16156 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16158 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16159 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16161 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16155 A)
                                            (IPIV-REF16157 IPIV)
                                            (WORK-REF16160 WORK))
      (%%CHECON UPLO N-REF16154 A-REF16155 LDA-REF16156 IPIV-REF16157
       ANORM-REF16158 RCOND-REF16159 WORK-REF16160 INFO-REF16161))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SOPMTR "sopmtr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SOPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SOPMTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16165 ':INT32) (N-REF16166 ':INT32)
                              (LDC-REF16170 ':INT32)
                              (INFO-REF16172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16165 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF16170 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16167 AP)
                                            (TAU-REF16168 TAU)
                                            (C-REF16169 C)
                                            (WORK-REF16171 WORK))
      (%%SOPMTR SIDE UPLO TRANS M-REF16165 N-REF16166 AP-REF16167
       TAU-REF16168 C-REF16169 LDC-REF16170 WORK-REF16171
       INFO-REF16172))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STFSM "stfsm_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STFSM
    (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFSM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16178 ':INT32) (N-REF16179 ':INT32)
                              (ALPHA-REF16180 ':FLOAT)
                              (LDB-REF16183 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16178 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF16180 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16183 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16181 A)
                                            (B-REF16182 B))
      (%%STFSM TRANSR SIDE UPLO TRANS DIAG M-REF16178 N-REF16179
       ALPHA-REF16180 A-REF16181 B-REF16182 LDB-REF16183))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAIC1 "zlaic1_")
  ((JOB :FOREIGN-ADDRESS) (J :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SEST :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (GAMMA :FOREIGN-ADDRESS) (SESTPR :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAIC1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    GAMMA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF16184 ':INT32)
                              (J-REF16185 ':INT32)
                              (SEST-REF16187 ':DOUBLE)
                              (GAMMA-REF16189
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (SESTPR-REF16190 ':DOUBLE)
                              (S-REF16191
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF16192
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF16184 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF16185 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF16187 :DOUBLE) SEST)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              GAMMA-REF16189
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART GAMMA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF16190 :DOUBLE) SESTPR)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S-REF16191
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              C-REF16192
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART C)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF16186 X)
                                            (W-REF16188 W))
      (%%ZLAIC1 JOB-REF16184 J-REF16185 X-REF16186 SEST-REF16187
       W-REF16188 GAMMA-REF16189 SESTPR-REF16190 S-REF16191
       C-REF16192))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTREXC "dtrexc_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (IFST :FOREIGN-ADDRESS)
   (ILST :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTREXC (COMPQ N T LDT Q LDQ IFST ILST WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREXC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16194 ':INT32)
                              (LDT-REF16196 ':INT32)
                              (LDQ-REF16198 ':INT32)
                              (IFST-REF16199 ':INT32)
                              (ILST-REF16200 ':INT32)
                              (INFO-REF16202 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16194 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF16196 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF16198 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF16199 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF16200 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16202 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF16195 T)
                                            (Q-REF16197 Q)
                                            (WORK-REF16201 WORK))
      (%%DTREXC COMPQ N-REF16194 T-REF16195 LDT-REF16196 Q-REF16197
       LDQ-REF16198 IFST-REF16199 ILST-REF16200 WORK-REF16201
       INFO-REF16202))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGTTRS "sgttrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16204 ':INT32)
                              (NRHS-REF16205 ':INT32)
                              (LDB-REF16212 ':INT32)
                              (INFO-REF16213 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16204 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16205 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16212 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16213 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF16206 DL)
                                            (D-REF16207 D)
                                            (DU-REF16208 DU)
                                            (DU2-REF16209 DU2)
                                            (IPIV-REF16210 IPIV)
                                            (B-REF16211 B))
      (%%SGTTRS TRANS N-REF16204 NRHS-REF16205 DL-REF16206 D-REF16207
       DU-REF16208 DU2-REF16209 IPIV-REF16210 B-REF16211 LDB-REF16212
       INFO-REF16213))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLATDF "clatdf_")
  ((IJOB :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (RHS :FOREIGN-ADDRESS)
   (RDSUM :FOREIGN-ADDRESS) (RDSCAL :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (JPIV :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATDF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    RHS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF16214 ':INT32)
                              (N-REF16215 ':INT32)
                              (LDZ-REF16217 ':INT32)
                              (RDSUM-REF16219 ':FLOAT)
                              (RDSCAL-REF16220 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF16214 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16215 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16217 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF16219 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF16220 :FLOAT) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF16216 Z)
                                            (RHS-REF16218 RHS)
                                            (IPIV-REF16221 IPIV)
                                            (JPIV-REF16222 JPIV))
      (%%CLATDF IJOB-REF16214 N-REF16215 Z-REF16216 LDZ-REF16217
       RHS-REF16218 RDSUM-REF16219 RDSCAL-REF16220 IPIV-REF16221
       JPIV-REF16222))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQGB "zlaqgb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQGB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQGB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16223 ':INT32) (N-REF16224 ':INT32)
                              (KL-REF16225 ':INT32)
                              (KU-REF16226 ':INT32)
                              (LDAB-REF16228 ':INT32)
                              (ROWCND-REF16231 ':DOUBLE)
                              (COLCND-REF16232 ':DOUBLE)
                              (AMAX-REF16233 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16223 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16224 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF16225 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF16226 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16228 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF16231 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF16232 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16233 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16227 AB)
                                            (R-REF16229 R)
                                            (C-REF16230 C))
      (%%ZLAQGB M-REF16223 N-REF16224 KL-REF16225 KU-REF16226
       AB-REF16227 LDAB-REF16228 R-REF16229 C-REF16230 ROWCND-REF16231
       COLCND-REF16232 AMAX-REF16233 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGERFS "cgerfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGERFS
    (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16236 ':INT32)
                              (NRHS-REF16237 ':INT32)
                              (LDA-REF16239 ':INT32)
                              (LDAF-REF16241 ':INT32)
                              (LDB-REF16244 ':INT32)
                              (LDX-REF16246 ':INT32)
                              (INFO-REF16251 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16236 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16237 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16239 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16241 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16244 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16246 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16251 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16238 A)
                                            (AF-REF16240 AF)
                                            (IPIV-REF16242 IPIV)
                                            (B-REF16243 B)
                                            (X-REF16245 X)
                                            (FERR-REF16247 FERR)
                                            (BERR-REF16248 BERR)
                                            (WORK-REF16249 WORK)
                                            (RWORK-REF16250 RWORK))
      (%%CGERFS TRANS N-REF16236 NRHS-REF16237 A-REF16238 LDA-REF16239
       AF-REF16240 LDAF-REF16241 IPIV-REF16242 B-REF16243 LDB-REF16244
       X-REF16245 LDX-REF16246 FERR-REF16247 BERR-REF16248
       WORK-REF16249 RWORK-REF16250 INFO-REF16251))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAMRG "slamrg_")
  ((N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (STRD1 :FOREIGN-ADDRESS) (STRD2 :FOREIGN-ADDRESS)
   (INDEX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAMRG (N1 N2 A STRD1 STRD2 INDEX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMRG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) STRD1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) STRD2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF16252 ':INT32)
                              (N2-REF16253 ':INT32)
                              (STRD1-REF16255 ':INT32)
                              (STRD2-REF16256 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF16252 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF16253 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF STRD1-REF16255 :INT32) STRD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF STRD2-REF16256 :INT32) STRD2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16254 A)
                                            (INDEX-REF16257 INDEX))
      (%%SLAMRG N1-REF16252 N2-REF16253 A-REF16254 STRD1-REF16255
       STRD2-REF16256 INDEX-REF16257))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRCON "ztrcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRCON
    (NORM UPLO DIAG N A LDA RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16261 ':INT32)
                              (LDA-REF16263 ':INT32)
                              (RCOND-REF16264 ':DOUBLE)
                              (INFO-REF16267 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16263 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16264 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16267 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16262 A)
                                            (WORK-REF16265 WORK)
                                            (RWORK-REF16266 RWORK))
      (%%ZTRCON NORM UPLO DIAG N-REF16261 A-REF16262 LDA-REF16263
       RCOND-REF16264 WORK-REF16265 RWORK-REF16266 INFO-REF16267))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESVD "dgesvd_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESVD
    (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16270 ':INT32) (N-REF16271 ':INT32)
                              (LDA-REF16273 ':INT32)
                              (LDU-REF16276 ':INT32)
                              (LDVT-REF16278 ':INT32)
                              (LWORK-REF16280 ':INT32)
                              (INFO-REF16281 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16270 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16271 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16273 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF16276 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF16278 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16280 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16281 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16272 A)
                                            (S-REF16274 S)
                                            (U-REF16275 U)
                                            (VT-REF16277 VT)
                                            (WORK-REF16279 WORK))
      (%%DGESVD JOBU JOBVT M-REF16270 N-REF16271 A-REF16272
       LDA-REF16273 S-REF16274 U-REF16275 LDU-REF16276 VT-REF16277
       LDVT-REF16278 WORK-REF16279 LWORK-REF16280 INFO-REF16281))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTF2_RK "dsytf2_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16283 ':INT32)
                              (LDA-REF16285 ':INT32)
                              (INFO-REF16288 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16285 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16288 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16284 A)
                                            (E-REF16286 E)
                                            (IPIV-REF16287 IPIV))
      (%%DSYTF2_RK UPLO N-REF16283 A-REF16284 LDA-REF16285 E-REF16286
       IPIV-REF16287 INFO-REF16288))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOSVX "sposvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOSVX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND FERR BERR
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16291 ':INT32)
                              (NRHS-REF16292 ':INT32)
                              (LDA-REF16294 ':INT32)
                              (LDAF-REF16296 ':INT32)
                              (LDB-REF16300 ':INT32)
                              (LDX-REF16302 ':INT32)
                              (RCOND-REF16303 ':FLOAT)
                              (INFO-REF16308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16291 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16292 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16294 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16296 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16300 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16302 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16303 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16293 A)
                                            (AF-REF16295 AF)
                                            (S-REF16298 S)
                                            (B-REF16299 B)
                                            (X-REF16301 X)
                                            (FERR-REF16304 FERR)
                                            (BERR-REF16305 BERR)
                                            (WORK-REF16306 WORK)
                                            (IWORK-REF16307 IWORK))
      (%%SPOSVX FACT UPLO N-REF16291 NRHS-REF16292 A-REF16293
       LDA-REF16294 AF-REF16295 LDAF-REF16296 EQUED S-REF16298
       B-REF16299 LDB-REF16300 X-REF16301 LDX-REF16302 RCOND-REF16303
       FERR-REF16304 BERR-REF16305 WORK-REF16306 IWORK-REF16307
       INFO-REF16308))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPGST "chpgst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16309 ':INT32)
                              (N-REF16311 ':INT32)
                              (INFO-REF16314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16309 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16311 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16312 AP)
                                            (BP-REF16313 BP))
      (%%CHPGST ITYPE-REF16309 UPLO N-REF16311 AP-REF16312 BP-REF16313
       INFO-REF16314))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEV "dstev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEV (JOBZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16316 ':INT32)
                              (LDZ-REF16320 ':INT32)
                              (INFO-REF16322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16316 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16320 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16317 D)
                                            (E-REF16318 E)
                                            (Z-REF16319 Z)
                                            (WORK-REF16321 WORK))
      (%%DSTEV JOBZ N-REF16316 D-REF16317 E-REF16318 Z-REF16319
       LDZ-REF16320 WORK-REF16321 INFO-REF16322))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAG2Z "clag2z_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS)
   (LDSA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAG2Z (M N SA LDSA A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAG2Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    SA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16323 ':INT32) (N-REF16324 ':INT32)
                              (LDSA-REF16326 ':INT32)
                              (LDA-REF16328 ':INT32)
                              (INFO-REF16329 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16323 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF16326 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16328 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16329 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF16325 SA)
                                            (A-REF16327 A))
      (%%CLAG2Z M-REF16323 N-REF16324 SA-REF16325 LDSA-REF16326
       A-REF16327 LDA-REF16328 INFO-REF16329))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPSVX "sspsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPSVX
    (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR WORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16332 ':INT32)
                              (NRHS-REF16333 ':INT32)
                              (LDB-REF16338 ':INT32)
                              (LDX-REF16340 ':INT32)
                              (RCOND-REF16341 ':FLOAT)
                              (INFO-REF16346 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16332 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16333 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16338 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16340 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16341 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16346 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16334 AP)
                                            (AFP-REF16335 AFP)
                                            (IPIV-REF16336 IPIV)
                                            (B-REF16337 B)
                                            (X-REF16339 X)
                                            (FERR-REF16342 FERR)
                                            (BERR-REF16343 BERR)
                                            (WORK-REF16344 WORK)
                                            (IWORK-REF16345 IWORK))
      (%%SSPSVX FACT UPLO N-REF16332 NRHS-REF16333 AP-REF16334
       AFP-REF16335 IPIV-REF16336 B-REF16337 LDB-REF16338 X-REF16339
       LDX-REF16340 RCOND-REF16341 FERR-REF16342 BERR-REF16343
       WORK-REF16344 IWORK-REF16345 INFO-REF16346))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBGV "dsbgv_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBGV
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16349 ':INT32)
                              (KA-REF16350 ':INT32)
                              (KB-REF16351 ':INT32)
                              (LDAB-REF16353 ':INT32)
                              (LDBB-REF16355 ':INT32)
                              (LDZ-REF16358 ':INT32)
                              (INFO-REF16360 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16349 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF16350 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF16351 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16353 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF16355 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16358 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16360 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16352 AB)
                                            (BB-REF16354 BB)
                                            (W-REF16356 W)
                                            (Z-REF16357 Z)
                                            (WORK-REF16359 WORK))
      (%%DSBGV JOBZ UPLO N-REF16349 KA-REF16350 KB-REF16351 AB-REF16352
       LDAB-REF16353 BB-REF16354 LDBB-REF16355 W-REF16356 Z-REF16357
       LDZ-REF16358 WORK-REF16359 INFO-REF16360))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMLQ "zunmlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMLQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16363 ':INT32) (N-REF16364 ':INT32)
                              (K-REF16365 ':INT32)
                              (LDA-REF16367 ':INT32)
                              (LDC-REF16370 ':INT32)
                              (LWORK-REF16372 ':INT32)
                              (INFO-REF16373 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16363 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16364 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF16365 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16367 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF16370 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16372 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16373 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16366 A)
                                            (TAU-REF16368 TAU)
                                            (C-REF16369 C)
                                            (WORK-REF16371 WORK))
      (%%ZUNMLQ SIDE TRANS M-REF16363 N-REF16364 K-REF16365 A-REF16366
       LDA-REF16367 TAU-REF16368 C-REF16369 LDC-REF16370 WORK-REF16371
       LWORK-REF16372 INFO-REF16373))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESVXX "sgesvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RPVGRW :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESVXX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16376 ':INT32)
                              (NRHS-REF16377 ':INT32)
                              (LDA-REF16379 ':INT32)
                              (LDAF-REF16381 ':INT32)
                              (LDB-REF16387 ':INT32)
                              (LDX-REF16389 ':INT32)
                              (RCOND-REF16390 ':FLOAT)
                              (RPVGRW-REF16391 ':FLOAT)
                              (N_ERR_BNDS-REF16393 ':INT32)
                              (NPARAMS-REF16396 ':INT32)
                              (INFO-REF16400 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16376 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16377 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16379 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16381 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16387 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16389 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16390 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF16391 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16393 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16396 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16400 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16378 A)
                                            (AF-REF16380 AF)
                                            (IPIV-REF16382 IPIV)
                                            (R-REF16384 R)
                                            (C-REF16385 C)
                                            (B-REF16386 B)
                                            (X-REF16388 X)
                                            (BERR-REF16392 BERR)
                                            (ERR_BNDS_NORM-REF16394
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16395
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF16397 PARAMS)
                                            (WORK-REF16398 WORK)
                                            (IWORK-REF16399 IWORK))
      (%%SGESVXX FACT TRANS N-REF16376 NRHS-REF16377 A-REF16378
       LDA-REF16379 AF-REF16380 LDAF-REF16381 IPIV-REF16382 EQUED
       R-REF16384 C-REF16385 B-REF16386 LDB-REF16387 X-REF16388
       LDX-REF16389 RCOND-REF16390 RPVGRW-REF16391 BERR-REF16392
       N_ERR_BNDS-REF16393 ERR_BNDS_NORM-REF16394
       ERR_BNDS_COMP-REF16395 NPARAMS-REF16396 PARAMS-REF16397
       WORK-REF16398 IWORK-REF16399 INFO-REF16400))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQHE "zlaqhe_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQHE (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16402 ':INT32)
                              (LDA-REF16404 ':INT32)
                              (SCOND-REF16406 ':DOUBLE)
                              (AMAX-REF16407 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16404 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF16406 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16407 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16403 A)
                                            (S-REF16405 S))
      (%%ZLAQHE UPLO N-REF16402 A-REF16403 LDA-REF16404 S-REF16405
       SCOND-REF16406 AMAX-REF16407 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAESY "zlaesy_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (RT1 :FOREIGN-ADDRESS) (RT2 :FOREIGN-ADDRESS)
   (EVSCAL :FOREIGN-ADDRESS) (CS1 :FOREIGN-ADDRESS)
   (SN1 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAESY (A B C RT1 RT2 EVSCAL CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAESY)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    RT1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    RT2)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    EVSCAL)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    CS1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF16409
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B-REF16410
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF16411
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT1-REF16412
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT2-REF16413
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (EVSCAL-REF16414
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CS1-REF16415
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (SN1-REF16416
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              A-REF16409
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              B-REF16410
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              C-REF16411
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              RT1-REF16412
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART RT1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              RT2-REF16413
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART RT2)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              EVSCAL-REF16414
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART EVSCAL)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              CS1-REF16415
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART CS1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF16416
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAESY A-REF16409 B-REF16410 C-REF16411 RT1-REF16412
       RT2-REF16413 EVSCAL-REF16414 CS1-REF16415 SN1-REF16416))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SDISNA "sdisna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (SEP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SDISNA (JOB M N D SEP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SDISNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16418 ':INT32) (N-REF16419 ':INT32)
                              (INFO-REF16422 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16418 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16419 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16422 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16420 D)
                                            (SEP-REF16421 SEP))
      (%%SDISNA JOB M-REF16418 N-REF16419 D-REF16420 SEP-REF16421
       INFO-REF16422))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEHRD "dgehrd_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16423 ':INT32)
                              (ILO-REF16424 ':INT32)
                              (IHI-REF16425 ':INT32)
                              (LDA-REF16427 ':INT32)
                              (LWORK-REF16430 ':INT32)
                              (INFO-REF16431 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16423 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF16424 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF16425 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16427 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16430 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16431 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16426 A)
                                            (TAU-REF16428 TAU)
                                            (WORK-REF16429 WORK))
      (%%DGEHRD N-REF16423 ILO-REF16424 IHI-REF16425 A-REF16426
       LDA-REF16427 TAU-REF16428 WORK-REF16429 LWORK-REF16430
       INFO-REF16431))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGETRI "dgetri_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16432 ':INT32)
                              (LDA-REF16434 ':INT32)
                              (LWORK-REF16437 ':INT32)
                              (INFO-REF16438 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16432 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16434 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16437 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16438 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16433 A)
                                            (IPIV-REF16435 IPIV)
                                            (WORK-REF16436 WORK))
      (%%DGETRI N-REF16432 A-REF16433 LDA-REF16434 IPIV-REF16435
       WORK-REF16436 LWORK-REF16437 INFO-REF16438))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPPTRF "dpptrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16440 ':INT32)
                              (INFO-REF16442 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16442 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16441 AP))
      (%%DPPTRF UPLO N-REF16440 AP-REF16441 INFO-REF16442))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSFRK "ssfrk_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSFRK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16446 ':INT32) (K-REF16447 ':INT32)
                              (ALPHA-REF16448 ':FLOAT)
                              (LDA-REF16450 ':INT32)
                              (BETA-REF16451 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16446 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF16447 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF16448 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16450 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF16451 :FLOAT) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16449 A)
                                            (C-REF16452 C))
      (%%SSFRK TRANSR UPLO TRANS N-REF16446 K-REF16447 ALPHA-REF16448
       A-REF16449 LDA-REF16450 BETA-REF16451 C-REF16452))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTBCON "dtbcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTBCON
    (NORM UPLO DIAG N KD AB LDAB RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16456 ':INT32)
                              (KD-REF16457 ':INT32)
                              (LDAB-REF16459 ':INT32)
                              (RCOND-REF16460 ':DOUBLE)
                              (INFO-REF16463 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16456 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16457 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16459 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16460 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16463 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16458 AB)
                                            (WORK-REF16461 WORK)
                                            (IWORK-REF16462 IWORK))
      (%%DTBCON NORM UPLO DIAG N-REF16456 KD-REF16457 AB-REF16458
       LDAB-REF16459 RCOND-REF16460 WORK-REF16461 IWORK-REF16462
       INFO-REF16463))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNGRQ "zungrq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGRQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16464 ':INT32) (N-REF16465 ':INT32)
                              (K-REF16466 ':INT32)
                              (LDA-REF16468 ':INT32)
                              (LWORK-REF16471 ':INT32)
                              (INFO-REF16472 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16464 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16465 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF16466 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16468 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16471 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16472 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16467 A)
                                            (TAU-REF16469 TAU)
                                            (WORK-REF16470 WORK))
      (%%ZUNGRQ M-REF16464 N-REF16465 K-REF16466 A-REF16467
       LDA-REF16468 TAU-REF16469 WORK-REF16470 LWORK-REF16471
       INFO-REF16472))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQRFP "dgeqrfp_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRFP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16473 ':INT32) (N-REF16474 ':INT32)
                              (LDA-REF16476 ':INT32)
                              (LWORK-REF16479 ':INT32)
                              (INFO-REF16480 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16473 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16474 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16476 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16479 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16480 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16475 A)
                                            (TAU-REF16477 TAU)
                                            (WORK-REF16478 WORK))
      (%%DGEQRFP M-REF16473 N-REF16474 A-REF16475 LDA-REF16476
       TAU-REF16477 WORK-REF16478 LWORK-REF16479 INFO-REF16480))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRTRS "strtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16484 ':INT32)
                              (NRHS-REF16485 ':INT32)
                              (LDA-REF16487 ':INT32)
                              (LDB-REF16489 ':INT32)
                              (INFO-REF16490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16484 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16485 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16487 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16489 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16486 A)
                                            (B-REF16488 B))
      (%%STRTRS UPLO TRANS DIAG N-REF16484 NRHS-REF16485 A-REF16486
       LDA-REF16487 B-REF16488 LDB-REF16489 INFO-REF16490))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGESVX "zgesvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGESVX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16493 ':INT32)
                              (NRHS-REF16494 ':INT32)
                              (LDA-REF16496 ':INT32)
                              (LDAF-REF16498 ':INT32)
                              (LDB-REF16504 ':INT32)
                              (LDX-REF16506 ':INT32)
                              (RCOND-REF16507 ':DOUBLE)
                              (INFO-REF16512 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16493 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16494 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16496 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16498 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16504 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16506 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16507 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16512 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16495 A)
                                            (AF-REF16497 AF)
                                            (IPIV-REF16499 IPIV)
                                            (R-REF16501 R)
                                            (C-REF16502 C)
                                            (B-REF16503 B)
                                            (X-REF16505 X)
                                            (FERR-REF16508 FERR)
                                            (BERR-REF16509 BERR)
                                            (WORK-REF16510 WORK)
                                            (RWORK-REF16511 RWORK))
      (%%ZGESVX FACT TRANS N-REF16493 NRHS-REF16494 A-REF16495
       LDA-REF16496 AF-REF16497 LDAF-REF16498 IPIV-REF16499 EQUED
       R-REF16501 C-REF16502 B-REF16503 LDB-REF16504 X-REF16505
       LDX-REF16506 RCOND-REF16507 FERR-REF16508 BERR-REF16509
       WORK-REF16510 RWORK-REF16511 INFO-REF16512))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEEV "sgeev_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEEV
    (JOBVL JOBVR N A LDA WR WI VL LDVL VR LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16515 ':INT32)
                              (LDA-REF16517 ':INT32)
                              (LDVL-REF16521 ':INT32)
                              (LDVR-REF16523 ':INT32)
                              (LWORK-REF16525 ':INT32)
                              (INFO-REF16526 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16515 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16517 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF16521 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF16523 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16525 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16526 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16516 A)
                                            (WR-REF16518 WR)
                                            (WI-REF16519 WI)
                                            (VL-REF16520 VL)
                                            (VR-REF16522 VR)
                                            (WORK-REF16524 WORK))
      (%%SGEEV JOBVL JOBVR N-REF16515 A-REF16516 LDA-REF16517
       WR-REF16518 WI-REF16519 VL-REF16520 LDVL-REF16521 VR-REF16522
       LDVR-REF16523 WORK-REF16524 LWORK-REF16525 INFO-REF16526))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYGST "ssygst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16527 ':INT32)
                              (N-REF16529 ':INT32)
                              (LDA-REF16531 ':INT32)
                              (LDB-REF16533 ':INT32)
                              (INFO-REF16534 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16527 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16529 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16531 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16533 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16534 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16530 A)
                                            (B-REF16532 B))
      (%%SSYGST ITYPE-REF16527 UPLO N-REF16529 A-REF16530 LDA-REF16531
       B-REF16532 LDB-REF16533 INFO-REF16534))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRK "slarrk_")
  ((N :FOREIGN-ADDRESS) (IW :FOREIGN-ADDRESS) (GL :FOREIGN-ADDRESS)
   (GU :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E2 :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (RELTOL :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRK (N IW GL GU D E2 PIVMIN RELTOL W WERR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IW)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT W)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16535 ':INT32)
                              (IW-REF16536 ':INT32)
                              (GL-REF16537 ':FLOAT)
                              (GU-REF16538 ':FLOAT)
                              (PIVMIN-REF16541 ':FLOAT)
                              (RELTOL-REF16542 ':FLOAT)
                              (W-REF16543 ':FLOAT)
                              (WERR-REF16544 ':FLOAT)
                              (INFO-REF16545 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16535 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF16536 :INT32) IW)
    (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF16537 :FLOAT) GL)
    (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF16538 :FLOAT) GU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF16541 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF16542 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF16543 :FLOAT) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF16544 :FLOAT) WERR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16545 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16539 D)
                                            (E2-REF16540 E2))
      (%%SLARRK N-REF16535 IW-REF16536 GL-REF16537 GU-REF16538
       D-REF16539 E2-REF16540 PIVMIN-REF16541 RELTOL-REF16542
       W-REF16543 WERR-REF16544 INFO-REF16545))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQR1 "claqr1_")
  ((N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (S1 :FOREIGN-ADDRESS) (S2 :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQR1 (N H LDH S1 S2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16546 ':INT32)
                              (LDH-REF16548 ':INT32)
                              (S1-REF16549
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (S2-REF16550
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16546 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF16548 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S1-REF16549
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S2-REF16550
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S2)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF16547 H)
                                            (V-REF16551 V))
      (%%CLAQR1 N-REF16546 H-REF16547 LDH-REF16548 S1-REF16549
       S2-REF16550 V-REF16551))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPRFS "spprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPRFS
    (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16553 ':INT32)
                              (NRHS-REF16554 ':INT32)
                              (LDB-REF16558 ':INT32)
                              (LDX-REF16560 ':INT32)
                              (INFO-REF16565 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16553 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16554 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16558 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16560 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16565 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16555 AP)
                                            (AFP-REF16556 AFP)
                                            (B-REF16557 B)
                                            (X-REF16559 X)
                                            (FERR-REF16561 FERR)
                                            (BERR-REF16562 BERR)
                                            (WORK-REF16563 WORK)
                                            (IWORK-REF16564 IWORK))
      (%%SPPRFS UPLO N-REF16553 NRHS-REF16554 AP-REF16555 AFP-REF16556
       B-REF16557 LDB-REF16558 X-REF16559 LDX-REF16560 FERR-REF16561
       BERR-REF16562 WORK-REF16563 IWORK-REF16564 INFO-REF16565))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLALSD "dlalsd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SMLSIZ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLALSD
    (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF16567 ':INT32)
                              (N-REF16568 ':INT32)
                              (NRHS-REF16569 ':INT32)
                              (LDB-REF16573 ':INT32)
                              (RCOND-REF16574 ':DOUBLE)
                              (RANK-REF16575 ':INT32)
                              (INFO-REF16578 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF16567 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16568 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16569 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16573 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16574 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF16575 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16578 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16570 D)
                                            (E-REF16571 E)
                                            (B-REF16572 B)
                                            (WORK-REF16576 WORK)
                                            (IWORK-REF16577 IWORK))
      (%%DLALSD UPLO SMLSIZ-REF16567 N-REF16568 NRHS-REF16569
       D-REF16570 E-REF16571 B-REF16572 LDB-REF16573 RCOND-REF16574
       RANK-REF16575 WORK-REF16576 IWORK-REF16577 INFO-REF16578))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANTR "dlantr_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16582 ':INT32) (N-REF16583 ':INT32)
                              (LDA-REF16585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16582 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16583 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16585 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16584 A)
                                            (WORK-REF16586 WORK))
      (%%DLANTR NORM UPLO DIAG M-REF16582 N-REF16583 A-REF16584
       LDA-REF16585 WORK-REF16586))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASET "dlaset_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASET)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16588 ':INT32) (N-REF16589 ':INT32)
                              (ALPHA-REF16590 ':DOUBLE)
                              (BETA-REF16591 ':DOUBLE)
                              (LDA-REF16593 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16588 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF16590 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF16591 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16593 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16592 A))
      (%%DLASET UPLO M-REF16588 N-REF16589 ALPHA-REF16590 BETA-REF16591
       A-REF16592 LDA-REF16593))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYSVXX "zsysvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYSVXX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16596 ':INT32)
                              (NRHS-REF16597 ':INT32)
                              (LDA-REF16599 ':INT32)
                              (LDAF-REF16601 ':INT32)
                              (LDB-REF16606 ':INT32)
                              (LDX-REF16608 ':INT32)
                              (RCOND-REF16609 ':DOUBLE)
                              (RPVGRW-REF16610 ':DOUBLE)
                              (N_ERR_BNDS-REF16612 ':INT32)
                              (NPARAMS-REF16615 ':INT32)
                              (INFO-REF16619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16596 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16597 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16599 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16601 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16606 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16608 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16609 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF16610 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16612 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16615 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16619 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16598 A)
                                            (AF-REF16600 AF)
                                            (IPIV-REF16602 IPIV)
                                            (S-REF16604 S)
                                            (B-REF16605 B)
                                            (X-REF16607 X)
                                            (BERR-REF16611 BERR)
                                            (ERR_BNDS_NORM-REF16613
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16614
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF16616 PARAMS)
                                            (WORK-REF16617 WORK)
                                            (RWORK-REF16618 RWORK))
      (%%ZSYSVXX FACT UPLO N-REF16596 NRHS-REF16597 A-REF16598
       LDA-REF16599 AF-REF16600 LDAF-REF16601 IPIV-REF16602 EQUED
       S-REF16604 B-REF16605 LDB-REF16606 X-REF16607 LDX-REF16608
       RCOND-REF16609 RPVGRW-REF16610 BERR-REF16611 N_ERR_BNDS-REF16612
       ERR_BNDS_NORM-REF16613 ERR_BNDS_COMP-REF16614 NPARAMS-REF16615
       PARAMS-REF16616 WORK-REF16617 RWORK-REF16618 INFO-REF16619))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARZT "zlarzt_")
  ((DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16622 ':INT32) (K-REF16623 ':INT32)
                              (LDV-REF16625 ':INT32)
                              (LDT-REF16628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16622 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF16623 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF16625 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF16628 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF16624 V)
                                            (TAU-REF16626 TAU)
                                            (T-REF16627 T))
      (%%ZLARZT DIRECT STOREV N-REF16622 K-REF16623 V-REF16624
       LDV-REF16625 TAU-REF16626 T-REF16627 LDT-REF16628))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTERF "ssterf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTERF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTERF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16629 ':INT32)
                              (INFO-REF16632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16629 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16632 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16630 D)
                                            (E-REF16631 E))
      (%%SSTERF N-REF16629 D-REF16630 E-REF16631 INFO-REF16632))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTF2_RK "ssytf2_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16634 ':INT32)
                              (LDA-REF16636 ':INT32)
                              (INFO-REF16639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16634 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16636 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16639 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16635 A)
                                            (E-REF16637 E)
                                            (IPIV-REF16638 IPIV))
      (%%SSYTF2_RK UPLO N-REF16634 A-REF16635 LDA-REF16636 E-REF16637
       IPIV-REF16638 INFO-REF16639))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPMV "zspmv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPMV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16641 ':INT32)
                              (ALPHA-REF16642
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF16645 ':INT32)
                              (BETA-REF16646
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF16648 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16641 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF16642
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF16645 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF16646
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF16648 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16643 AP)
                                            (X-REF16644 X)
                                            (Y-REF16647 Y))
      (%%ZSPMV UPLO N-REF16641 ALPHA-REF16642 AP-REF16643 X-REF16644
       INCX-REF16645 BETA-REF16646 Y-REF16647 INCY-REF16648))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRF_AA "dsytrf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16650 ':INT32)
                              (LDA-REF16652 ':INT32)
                              (LWORK-REF16655 ':INT32)
                              (INFO-REF16656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16652 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16655 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16656 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16651 A)
                                            (IPIV-REF16653 IPIV)
                                            (WORK-REF16654 WORK))
      (%%DSYTRF_AA UPLO N-REF16650 A-REF16651 LDA-REF16652
       IPIV-REF16653 WORK-REF16654 LWORK-REF16655 INFO-REF16656))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEEV "cgeev_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEEV
    (JOBVL JOBVR N A LDA W VL LDVL VR LDVR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16659 ':INT32)
                              (LDA-REF16661 ':INT32)
                              (LDVL-REF16664 ':INT32)
                              (LDVR-REF16666 ':INT32)
                              (LWORK-REF16668 ':INT32)
                              (INFO-REF16670 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16659 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16661 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF16664 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF16666 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16668 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16670 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16660 A)
                                            (W-REF16662 W)
                                            (VL-REF16663 VL)
                                            (VR-REF16665 VR)
                                            (WORK-REF16667 WORK)
                                            (RWORK-REF16669 RWORK))
      (%%CGEEV JOBVL JOBVR N-REF16659 A-REF16660 LDA-REF16661
       W-REF16662 VL-REF16663 LDVL-REF16664 VR-REF16665 LDVR-REF16666
       WORK-REF16667 LWORK-REF16668 RWORK-REF16669 INFO-REF16670))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGSVJ0 "zgsvj0_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (EPS :FOREIGN-ADDRESS)
   (SFMIN :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (NSWEEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGSVJ0
    (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGSVJ0)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16672 ':INT32) (N-REF16673 ':INT32)
                              (LDA-REF16675 ':INT32)
                              (MV-REF16678 ':INT32)
                              (LDV-REF16680 ':INT32)
                              (EPS-REF16681 ':DOUBLE)
                              (SFMIN-REF16682 ':DOUBLE)
                              (TOL-REF16683 ':DOUBLE)
                              (NSWEEP-REF16684 ':INT32)
                              (LWORK-REF16686 ':INT32)
                              (INFO-REF16687 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16672 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16673 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16675 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF16678 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF16680 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF16681 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF16682 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF16683 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF16684 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16686 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16687 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16674 A)
                                            (D-REF16676 D)
                                            (SVA-REF16677 SVA)
                                            (V-REF16679 V)
                                            (WORK-REF16685 WORK))
      (%%ZGSVJ0 JOBV M-REF16672 N-REF16673 A-REF16674 LDA-REF16675
       D-REF16676 SVA-REF16677 MV-REF16678 V-REF16679 LDV-REF16680
       EPS-REF16681 SFMIN-REF16682 TOL-REF16683 NSWEEP-REF16684
       WORK-REF16685 LWORK-REF16686 INFO-REF16687))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGSJA "ztgsja_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TOLA :FOREIGN-ADDRESS)
   (TOLB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NCYCLE :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGSJA
    (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U LDU V
     LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSJA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16691 ':INT32) (P-REF16692 ':INT32)
                              (N-REF16693 ':INT32) (K-REF16694 ':INT32)
                              (L-REF16695 ':INT32)
                              (LDA-REF16697 ':INT32)
                              (LDB-REF16699 ':INT32)
                              (TOLA-REF16700 ':DOUBLE)
                              (TOLB-REF16701 ':DOUBLE)
                              (LDU-REF16705 ':INT32)
                              (LDV-REF16707 ':INT32)
                              (LDQ-REF16709 ':INT32)
                              (NCYCLE-REF16711 ':INT32)
                              (INFO-REF16712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16691 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF16692 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16693 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF16694 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF16695 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16697 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16699 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF16700 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF16701 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF16705 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF16707 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF16709 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF16711 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16696 A)
                                            (B-REF16698 B)
                                            (ALPHA-REF16702 ALPHA)
                                            (BETA-REF16703 BETA)
                                            (U-REF16704 U)
                                            (V-REF16706 V)
                                            (Q-REF16708 Q)
                                            (WORK-REF16710 WORK))
      (%%ZTGSJA JOBU JOBV JOBQ M-REF16691 P-REF16692 N-REF16693
       K-REF16694 L-REF16695 A-REF16696 LDA-REF16697 B-REF16698
       LDB-REF16699 TOLA-REF16700 TOLB-REF16701 ALPHA-REF16702
       BETA-REF16703 U-REF16704 LDU-REF16705 V-REF16706 LDV-REF16707
       Q-REF16708 LDQ-REF16709 WORK-REF16710 NCYCLE-REF16711
       INFO-REF16712))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLATPS "clatps_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLATPS
    (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATPS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16717 ':INT32)
                              (SCALE-REF16720 ':FLOAT)
                              (INFO-REF16722 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16717 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF16720 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16722 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16718 AP)
                                            (X-REF16719 X)
                                            (CNORM-REF16721 CNORM))
      (%%CLATPS UPLO TRANS DIAG NORMIN N-REF16717 AP-REF16718
       X-REF16719 SCALE-REF16720 CNORM-REF16721 INFO-REF16722))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANGE "slange_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16724 ':INT32) (N-REF16725 ':INT32)
                              (LDA-REF16727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16724 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16725 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16727 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16726 A)
                                            (WORK-REF16728 WORK))
      (%%SLANGE NORM M-REF16724 N-REF16725 A-REF16726 LDA-REF16727
       WORK-REF16728))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SLA_SYRFSX_EXTENDED "sla_syrfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_SYRFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y LDY
     BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL
     RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF16729 ':INT32)
                              (N-REF16731 ':INT32)
                              (NRHS-REF16732 ':INT32)
                              (LDA-REF16734 ':INT32)
                              (LDAF-REF16736 ':INT32)
                              (COLEQU-REF16738 ':INT32)
                              (LDB-REF16741 ':INT32)
                              (LDY-REF16743 ':INT32)
                              (N_NORMS-REF16745 ':INT32)
                              (RCOND-REF16752 ':FLOAT)
                              (ITHRESH-REF16753 ':INT32)
                              (RTHRESH-REF16754 ':FLOAT)
                              (DZ_UB-REF16755 ':FLOAT)
                              (IGNORE_CWISE-REF16756 ':INT32)
                              (INFO-REF16757 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF16729 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16732 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16734 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16736 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF16738 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16741 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF16743 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF16745 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16752 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF16753 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF16754 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF16755 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF16756 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16757 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16733 A)
                                            (AF-REF16735 AF)
                                            (IPIV-REF16737 IPIV)
                                            (C-REF16739 C)
                                            (B-REF16740 B)
                                            (Y-REF16742 Y)
                                            (BERR_OUT-REF16744
                                             BERR_OUT)
                                            (ERR_BNDS_NORM-REF16746
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16747
                                             ERR_BNDS_COMP)
                                            (RES-REF16748 RES)
                                            (AYB-REF16749 AYB)
                                            (DY-REF16750 DY)
                                            (Y_TAIL-REF16751 Y_TAIL))
      (%%SLA_SYRFSX_EXTENDED PREC_TYPE-REF16729 UPLO N-REF16731
       NRHS-REF16732 A-REF16733 LDA-REF16734 AF-REF16735 LDAF-REF16736
       IPIV-REF16737 COLEQU-REF16738 C-REF16739 B-REF16740 LDB-REF16741
       Y-REF16742 LDY-REF16743 BERR_OUT-REF16744 N_NORMS-REF16745
       ERR_BNDS_NORM-REF16746 ERR_BNDS_COMP-REF16747 RES-REF16748
       AYB-REF16749 DY-REF16750 Y_TAIL-REF16751 RCOND-REF16752
       ITHRESH-REF16753 RTHRESH-REF16754 DZ_UB-REF16755
       IGNORE_CWISE-REF16756 INFO-REF16757))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQHB "zlaqhb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQHB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16759 ':INT32)
                              (KD-REF16760 ':INT32)
                              (LDAB-REF16762 ':INT32)
                              (SCOND-REF16764 ':DOUBLE)
                              (AMAX-REF16765 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16760 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16762 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF16764 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16765 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16761 AB)
                                            (S-REF16763 S))
      (%%ZLAQHB UPLO N-REF16759 KD-REF16760 AB-REF16761 LDAB-REF16762
       S-REF16763 SCOND-REF16764 AMAX-REF16765 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASDQ "dlasdq_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SQRE :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NCVT :FOREIGN-ADDRESS)
   (NRU :FOREIGN-ADDRESS) (NCC :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASDQ
    (UPLO SQRE N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF16768 ':INT32)
                              (N-REF16769 ':INT32)
                              (NCVT-REF16770 ':INT32)
                              (NRU-REF16771 ':INT32)
                              (NCC-REF16772 ':INT32)
                              (LDVT-REF16776 ':INT32)
                              (LDU-REF16778 ':INT32)
                              (LDC-REF16780 ':INT32)
                              (INFO-REF16782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF16768 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16769 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF16770 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF16771 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF16772 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF16776 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF16778 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF16780 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16782 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16773 D)
                                            (E-REF16774 E)
                                            (VT-REF16775 VT)
                                            (U-REF16777 U)
                                            (C-REF16779 C)
                                            (WORK-REF16781 WORK))
      (%%DLASDQ UPLO SQRE-REF16768 N-REF16769 NCVT-REF16770
       NRU-REF16771 NCC-REF16772 D-REF16773 E-REF16774 VT-REF16775
       LDVT-REF16776 U-REF16777 LDU-REF16778 C-REF16779 LDC-REF16780
       WORK-REF16781 INFO-REF16782))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGGLM "zggglm_")
  ((N :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGGLM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16783 ':INT32) (M-REF16784 ':INT32)
                              (P-REF16785 ':INT32)
                              (LDA-REF16787 ':INT32)
                              (LDB-REF16789 ':INT32)
                              (LWORK-REF16794 ':INT32)
                              (INFO-REF16795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16783 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16784 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF16785 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16787 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16789 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16794 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16795 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16786 A)
                                            (B-REF16788 B)
                                            (D-REF16790 D)
                                            (X-REF16791 X)
                                            (Y-REF16792 Y)
                                            (WORK-REF16793 WORK))
      (%%ZGGGLM N-REF16783 M-REF16784 P-REF16785 A-REF16786
       LDA-REF16787 B-REF16788 LDB-REF16789 D-REF16790 X-REF16791
       Y-REF16792 WORK-REF16793 LWORK-REF16794 INFO-REF16795))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRTTP "ctrttp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16797 ':INT32)
                              (LDA-REF16799 ':INT32)
                              (INFO-REF16801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16797 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16799 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16798 A)
                                            (AP-REF16800 AP))
      (%%CTRTTP UPLO N-REF16797 A-REF16798 LDA-REF16799 AP-REF16800
       INFO-REF16801))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPFTRI "zpftri_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16804 ':INT32)
                              (INFO-REF16806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16804 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16806 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16805 A))
      (%%ZPFTRI TRANSR UPLO N-REF16804 A-REF16805 INFO-REF16806))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPRFS "csprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPRFS
    (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16808 ':INT32)
                              (NRHS-REF16809 ':INT32)
                              (LDB-REF16814 ':INT32)
                              (LDX-REF16816 ':INT32)
                              (INFO-REF16821 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16809 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16814 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16816 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16821 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16810 AP)
                                            (AFP-REF16811 AFP)
                                            (IPIV-REF16812 IPIV)
                                            (B-REF16813 B)
                                            (X-REF16815 X)
                                            (FERR-REF16817 FERR)
                                            (BERR-REF16818 BERR)
                                            (WORK-REF16819 WORK)
                                            (RWORK-REF16820 RWORK))
      (%%CSPRFS UPLO N-REF16808 NRHS-REF16809 AP-REF16810 AFP-REF16811
       IPIV-REF16812 B-REF16813 LDB-REF16814 X-REF16815 LDX-REF16816
       FERR-REF16817 BERR-REF16818 WORK-REF16819 RWORK-REF16820
       INFO-REF16821))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STREVC3 "strevc3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STREVC3
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREVC3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16825 ':INT32)
                              (LDT-REF16827 ':INT32)
                              (LDVL-REF16829 ':INT32)
                              (LDVR-REF16831 ':INT32)
                              (MM-REF16832 ':INT32)
                              (M-REF16833 ':INT32)
                              (LWORK-REF16835 ':INT32)
                              (INFO-REF16836 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF16827 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF16829 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF16831 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF16832 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16833 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16835 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16836 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF16824 SELECT)
                                            (T-REF16826 T)
                                            (VL-REF16828 VL)
                                            (VR-REF16830 VR)
                                            (WORK-REF16834 WORK))
      (%%STREVC3 SIDE HOWMNY SELECT-REF16824 N-REF16825 T-REF16826
       LDT-REF16827 VL-REF16828 LDVL-REF16829 VR-REF16830 LDVR-REF16831
       MM-REF16832 M-REF16833 WORK-REF16834 LWORK-REF16835
       INFO-REF16836))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRD "slarrd_")
  ((RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ORDER (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS) (GERS :FOREIGN-ADDRESS)
   (RELTOL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (E2 :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (NSPLIT :FOREIGN-ADDRESS) (ISPLIT :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (WL :FOREIGN-ADDRESS) (WU :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (INDEXW :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRD
    (RANGE ORDER N VL VU IL IU GERS RELTOL D E E2 PIVMIN NSPLIT ISPLIT
     M W WERR WL WU IBLOCK INDEXW WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GERS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WERR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16839 ':INT32)
                              (VL-REF16840 ':FLOAT)
                              (VU-REF16841 ':FLOAT)
                              (IL-REF16842 ':INT32)
                              (IU-REF16843 ':INT32)
                              (RELTOL-REF16845 ':FLOAT)
                              (PIVMIN-REF16849 ':FLOAT)
                              (NSPLIT-REF16850 ':INT32)
                              (M-REF16852 ':INT32)
                              (WL-REF16855 ':FLOAT)
                              (WU-REF16856 ':FLOAT)
                              (INFO-REF16861 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16839 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16840 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16841 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16842 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16843 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF16845 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF16849 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF16850 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16852 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF16855 :FLOAT) WL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF16856 :FLOAT) WU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16861 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF16844 GERS)
                                            (D-REF16846 D)
                                            (E-REF16847 E)
                                            (E2-REF16848 E2)
                                            (ISPLIT-REF16851 ISPLIT)
                                            (W-REF16853 W)
                                            (WERR-REF16854 WERR)
                                            (IBLOCK-REF16857 IBLOCK)
                                            (INDEXW-REF16858 INDEXW)
                                            (WORK-REF16859 WORK)
                                            (IWORK-REF16860 IWORK))
      (%%SLARRD RANGE ORDER N-REF16839 VL-REF16840 VU-REF16841
       IL-REF16842 IU-REF16843 GERS-REF16844 RELTOL-REF16845 D-REF16846
       E-REF16847 E2-REF16848 PIVMIN-REF16849 NSPLIT-REF16850
       ISPLIT-REF16851 M-REF16852 W-REF16853 WERR-REF16854 WL-REF16855
       WU-REF16856 IBLOCK-REF16857 INDEXW-REF16858 WORK-REF16859
       IWORK-REF16860 INFO-REF16861))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGETRS "sgetrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16863 ':INT32)
                              (NRHS-REF16864 ':INT32)
                              (LDA-REF16866 ':INT32)
                              (LDB-REF16869 ':INT32)
                              (INFO-REF16870 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16863 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16864 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16866 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16869 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16870 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16865 A)
                                            (IPIV-REF16867 IPIV)
                                            (B-REF16868 B))
      (%%SGETRS TRANS N-REF16863 NRHS-REF16864 A-REF16865 LDA-REF16866
       IPIV-REF16867 B-REF16868 LDB-REF16869 INFO-REF16870))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STFTTP "stfttp_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ARF :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ARF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16873 ':INT32)
                              (INFO-REF16876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16874 ARF)
                                            (AP-REF16875 AP))
      (%%STFTTP TRANSR UPLO N-REF16873 ARF-REF16874 AP-REF16875
       INFO-REF16876))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRS "zsytrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16878 ':INT32)
                              (NRHS-REF16879 ':INT32)
                              (LDA-REF16881 ':INT32)
                              (LDB-REF16884 ':INT32)
                              (INFO-REF16885 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16879 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16881 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16884 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16885 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16880 A)
                                            (IPIV-REF16882 IPIV)
                                            (B-REF16883 B))
      (%%ZSYTRS UPLO N-REF16878 NRHS-REF16879 A-REF16880 LDA-REF16881
       IPIV-REF16882 B-REF16883 LDB-REF16884 INFO-REF16885))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGHD3 "sgghd3_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGHD3
    (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGHD3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16888 ':INT32)
                              (ILO-REF16889 ':INT32)
                              (IHI-REF16890 ':INT32)
                              (LDA-REF16892 ':INT32)
                              (LDB-REF16894 ':INT32)
                              (LDQ-REF16896 ':INT32)
                              (LDZ-REF16898 ':INT32)
                              (LWORK-REF16900 ':INT32)
                              (INFO-REF16901 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16888 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF16889 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF16890 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16892 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16894 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF16896 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16898 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16900 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16901 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16891 A)
                                            (B-REF16893 B)
                                            (Q-REF16895 Q)
                                            (Z-REF16897 Z)
                                            (WORK-REF16899 WORK))
      (%%SGGHD3 COMPQ COMPZ N-REF16888 ILO-REF16889 IHI-REF16890
       A-REF16891 LDA-REF16892 B-REF16893 LDB-REF16894 Q-REF16895
       LDQ-REF16896 Z-REF16897 LDZ-REF16898 WORK-REF16899
       LWORK-REF16900 INFO-REF16901))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPTRS "ctptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16905 ':INT32)
                              (NRHS-REF16906 ':INT32)
                              (LDB-REF16909 ':INT32)
                              (INFO-REF16910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16905 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16906 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16909 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16907 AP)
                                            (B-REF16908 B))
      (%%CTPTRS UPLO TRANS DIAG N-REF16905 NRHS-REF16906 AP-REF16907
       B-REF16908 LDB-REF16909 INFO-REF16910))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRS_AA "ssytrs_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRS_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16912 ':INT32)
                              (NRHS-REF16913 ':INT32)
                              (LDA-REF16915 ':INT32)
                              (LDB-REF16918 ':INT32)
                              (LWORK-REF16920 ':INT32)
                              (INFO-REF16921 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16912 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16913 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16915 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16918 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16920 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16921 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16914 A)
                                            (IPIV-REF16916 IPIV)
                                            (B-REF16917 B)
                                            (WORK-REF16919 WORK))
      (%%SSYTRS_AA UPLO N-REF16912 NRHS-REF16913 A-REF16914
       LDA-REF16915 IPIV-REF16916 B-REF16917 LDB-REF16918 WORK-REF16919
       LWORK-REF16920 INFO-REF16921))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPSV "zhpsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16923 ':INT32)
                              (NRHS-REF16924 ':INT32)
                              (LDB-REF16928 ':INT32)
                              (INFO-REF16929 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16923 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16924 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16928 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16929 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16925 AP)
                                            (IPIV-REF16926 IPIV)
                                            (B-REF16927 B))
      (%%ZHPSV UPLO N-REF16923 NRHS-REF16924 AP-REF16925 IPIV-REF16926
       B-REF16927 LDB-REF16928 INFO-REF16929))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPBTRS "cpbtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16931 ':INT32)
                              (KD-REF16932 ':INT32)
                              (NRHS-REF16933 ':INT32)
                              (LDAB-REF16935 ':INT32)
                              (LDB-REF16937 ':INT32)
                              (INFO-REF16938 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16931 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16932 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16933 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16935 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16937 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16938 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16934 AB)
                                            (B-REF16936 B))
      (%%CPBTRS UPLO N-REF16931 KD-REF16932 NRHS-REF16933 AB-REF16934
       LDAB-REF16935 B-REF16936 LDB-REF16937 INFO-REF16938))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGBAK "sggbak_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGBAK
    (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGBAK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16941 ':INT32)
                              (ILO-REF16942 ':INT32)
                              (IHI-REF16943 ':INT32)
                              (M-REF16946 ':INT32)
                              (LDV-REF16948 ':INT32)
                              (INFO-REF16949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16941 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF16942 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF16943 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16946 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF16948 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16949 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF16944 LSCALE)
                                            (RSCALE-REF16945 RSCALE)
                                            (V-REF16947 V))
      (%%SGGBAK JOB SIDE N-REF16941 ILO-REF16942 IHI-REF16943
       LSCALE-REF16944 RSCALE-REF16945 M-REF16946 V-REF16947
       LDV-REF16948 INFO-REF16949))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARTG "zlartg_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (CS :FOREIGN-ADDRESS)
   (SN :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARTG)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) F)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) G)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF16950
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (G-REF16951
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CS-REF16952 ':DOUBLE)
                              (SN-REF16953
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (R-REF16954
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              F-REF16950
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART F)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              G-REF16951
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART G)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF16952 :DOUBLE) CS)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SN-REF16953
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SN)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              R-REF16954
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART R)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLARTG F-REF16950 G-REF16951 CS-REF16952 SN-REF16953
       R-REF16954))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD3 "dlasd3_")
  ((NL :FOREIGN-ADDRESS) (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (LDVT :FOREIGN-ADDRESS) (VT2 :FOREIGN-ADDRESS)
   (LDVT2 :FOREIGN-ADDRESS) (IDXC :FOREIGN-ADDRESS)
   (CTOT :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD3
    (NL NR SQRE K D Q LDQ DSIGMA U LDU U2 LDU2 VT LDVT VT2 LDVT2 IDXC
     CTOT Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    CTOT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF16955 ':INT32)
                              (NR-REF16956 ':INT32)
                              (SQRE-REF16957 ':INT32)
                              (K-REF16958 ':INT32)
                              (LDQ-REF16961 ':INT32)
                              (LDU-REF16964 ':INT32)
                              (LDU2-REF16966 ':INT32)
                              (LDVT-REF16968 ':INT32)
                              (LDVT2-REF16970 ':INT32)
                              (INFO-REF16974 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF16955 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF16956 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF16957 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF16958 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF16961 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF16964 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF16966 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF16968 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF16970 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16974 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16959 D)
                                            (Q-REF16960 Q)
                                            (DSIGMA-REF16962 DSIGMA)
                                            (U-REF16963 U)
                                            (U2-REF16965 U2)
                                            (VT-REF16967 VT)
                                            (VT2-REF16969 VT2)
                                            (IDXC-REF16971 IDXC)
                                            (CTOT-REF16972 CTOT)
                                            (Z-REF16973 Z))
      (%%DLASD3 NL-REF16955 NR-REF16956 SQRE-REF16957 K-REF16958
       D-REF16959 Q-REF16960 LDQ-REF16961 DSIGMA-REF16962 U-REF16963
       LDU-REF16964 U2-REF16965 LDU2-REF16966 VT-REF16967 LDVT-REF16968
       VT2-REF16969 LDVT2-REF16970 IDXC-REF16971 CTOT-REF16972
       Z-REF16973 INFO-REF16974))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPLQT2 "dtplqt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPLQT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16975 ':INT32) (N-REF16976 ':INT32)
                              (L-REF16977 ':INT32)
                              (LDA-REF16979 ':INT32)
                              (LDB-REF16981 ':INT32)
                              (LDT-REF16983 ':INT32)
                              (INFO-REF16984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16975 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16976 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF16977 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16979 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16981 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF16983 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16984 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16978 A)
                                            (B-REF16980 B)
                                            (T-REF16982 T))
      (%%DTPLQT2 M-REF16975 N-REF16976 L-REF16977 A-REF16978
       LDA-REF16979 B-REF16980 LDB-REF16981 T-REF16982 LDT-REF16983
       INFO-REF16984))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQSB "claqsb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQSB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16986 ':INT32)
                              (KD-REF16987 ':INT32)
                              (LDAB-REF16989 ':INT32)
                              (SCOND-REF16991 ':FLOAT)
                              (AMAX-REF16992 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16986 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16987 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16989 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF16991 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16992 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16988 AB)
                                            (S-REF16990 S))
      (%%CLAQSB UPLO N-REF16986 KD-REF16987 AB-REF16988 LDAB-REF16989
       S-REF16990 SCOND-REF16991 AMAX-REF16992 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAHEF_AA "zlahef_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (J1 :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAHEF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF16995 ':INT32)
                              (M-REF16996 ':INT32)
                              (NB-REF16997 ':INT32)
                              (LDA-REF16999 ':INT32)
                              (LDH-REF17002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF16995 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16996 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16997 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16999 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF17002 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16998 A)
                                            (IPIV-REF17000 IPIV)
                                            (H-REF17001 H)
                                            (WORK-REF17003 WORK))
      (%%ZLAHEF_AA UPLO J1-REF16995 M-REF16996 NB-REF16997 A-REF16998
       LDA-REF16999 IPIV-REF17000 H-REF17001 LDH-REF17002
       WORK-REF17003))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYRFSX "zsyrfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYRFSX
    (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17006 ':INT32)
                              (NRHS-REF17007 ':INT32)
                              (LDA-REF17009 ':INT32)
                              (LDAF-REF17011 ':INT32)
                              (LDB-REF17015 ':INT32)
                              (LDX-REF17017 ':INT32)
                              (RCOND-REF17018 ':DOUBLE)
                              (N_ERR_BNDS-REF17020 ':INT32)
                              (NPARAMS-REF17023 ':INT32)
                              (INFO-REF17027 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17006 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17007 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17009 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17011 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17015 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17017 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17018 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17020 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17023 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17027 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17008 A)
                                            (AF-REF17010 AF)
                                            (IPIV-REF17012 IPIV)
                                            (S-REF17013 S)
                                            (B-REF17014 B)
                                            (X-REF17016 X)
                                            (BERR-REF17019 BERR)
                                            (ERR_BNDS_NORM-REF17021
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF17022
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF17024 PARAMS)
                                            (WORK-REF17025 WORK)
                                            (RWORK-REF17026 RWORK))
      (%%ZSYRFSX UPLO EQUED N-REF17006 NRHS-REF17007 A-REF17008
       LDA-REF17009 AF-REF17010 LDAF-REF17011 IPIV-REF17012 S-REF17013
       B-REF17014 LDB-REF17015 X-REF17016 LDX-REF17017 RCOND-REF17018
       BERR-REF17019 N_ERR_BNDS-REF17020 ERR_BNDS_NORM-REF17021
       ERR_BNDS_COMP-REF17022 NPARAMS-REF17023 PARAMS-REF17024
       WORK-REF17025 RWORK-REF17026 INFO-REF17027))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORM22 "sorm22_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS)
   (N2 :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORM22
    (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM22)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17030 ':INT32) (N-REF17031 ':INT32)
                              (N1-REF17032 ':INT32)
                              (N2-REF17033 ':INT32)
                              (LDQ-REF17035 ':INT32)
                              (LDC-REF17037 ':INT32)
                              (LWORK-REF17039 ':INT32)
                              (INFO-REF17040 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17030 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF17032 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF17033 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17035 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17037 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17039 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17040 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF17034 Q)
                                            (C-REF17036 C)
                                            (WORK-REF17038 WORK))
      (%%SORM22 SIDE TRANS M-REF17030 N-REF17031 N1-REF17032
       N2-REF17033 Q-REF17034 LDQ-REF17035 C-REF17036 LDC-REF17037
       WORK-REF17038 LWORK-REF17039 INFO-REF17040))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGERFSX "sgerfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGERFSX
    (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17043 ':INT32)
                              (NRHS-REF17044 ':INT32)
                              (LDA-REF17046 ':INT32)
                              (LDAF-REF17048 ':INT32)
                              (LDB-REF17053 ':INT32)
                              (LDX-REF17055 ':INT32)
                              (RCOND-REF17056 ':FLOAT)
                              (N_ERR_BNDS-REF17058 ':INT32)
                              (NPARAMS-REF17061 ':INT32)
                              (INFO-REF17065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17043 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17044 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17046 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17048 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17053 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17055 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17056 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17058 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17061 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17045 A)
                                            (AF-REF17047 AF)
                                            (IPIV-REF17049 IPIV)
                                            (R-REF17050 R)
                                            (C-REF17051 C)
                                            (B-REF17052 B)
                                            (X-REF17054 X)
                                            (BERR-REF17057 BERR)
                                            (ERR_BNDS_NORM-REF17059
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF17060
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF17062 PARAMS)
                                            (WORK-REF17063 WORK)
                                            (IWORK-REF17064 IWORK))
      (%%SGERFSX TRANS EQUED N-REF17043 NRHS-REF17044 A-REF17045
       LDA-REF17046 AF-REF17047 LDAF-REF17048 IPIV-REF17049 R-REF17050
       C-REF17051 B-REF17052 LDB-REF17053 X-REF17054 LDX-REF17055
       RCOND-REF17056 BERR-REF17057 N_ERR_BNDS-REF17058
       ERR_BNDS_NORM-REF17059 ERR_BNDS_COMP-REF17060 NPARAMS-REF17061
       PARAMS-REF17062 WORK-REF17063 IWORK-REF17064 INFO-REF17065))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSTEDC "zstedc_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSTEDC
    (COMPZ N D E Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEDC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17067 ':INT32)
                              (LDZ-REF17071 ':INT32)
                              (LWORK-REF17073 ':INT32)
                              (LRWORK-REF17075 ':INT32)
                              (LIWORK-REF17077 ':INT32)
                              (INFO-REF17078 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17071 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17073 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17075 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17077 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17078 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17068 D)
                                            (E-REF17069 E)
                                            (Z-REF17070 Z)
                                            (WORK-REF17072 WORK)
                                            (RWORK-REF17074 RWORK)
                                            (IWORK-REF17076 IWORK))
      (%%ZSTEDC COMPZ N-REF17067 D-REF17068 E-REF17069 Z-REF17070
       LDZ-REF17071 WORK-REF17072 LWORK-REF17073 RWORK-REF17074
       LRWORK-REF17075 IWORK-REF17076 LIWORK-REF17077 INFO-REF17078))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGRQF "zggrqf_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAUA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TAUB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGRQF
    (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGRQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17079 ':INT32) (P-REF17080 ':INT32)
                              (N-REF17081 ':INT32)
                              (LDA-REF17083 ':INT32)
                              (LDB-REF17086 ':INT32)
                              (LWORK-REF17089 ':INT32)
                              (INFO-REF17090 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17079 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17080 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17081 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17083 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17086 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17089 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17090 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17082 A)
                                            (TAUA-REF17084 TAUA)
                                            (B-REF17085 B)
                                            (TAUB-REF17087 TAUB)
                                            (WORK-REF17088 WORK))
      (%%ZGGRQF M-REF17079 P-REF17080 N-REF17081 A-REF17082
       LDA-REF17083 TAUA-REF17084 B-REF17085 LDB-REF17086 TAUB-REF17087
       WORK-REF17088 LWORK-REF17089 INFO-REF17090))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLALS0 "slals0_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (LDGNUM :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLALS0
    (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL LDGCOL
     GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALS0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF17091 ':INT32)
                              (NL-REF17092 ':INT32)
                              (NR-REF17093 ':INT32)
                              (SQRE-REF17094 ':INT32)
                              (NRHS-REF17095 ':INT32)
                              (LDB-REF17097 ':INT32)
                              (LDBX-REF17099 ':INT32)
                              (GIVPTR-REF17101 ':INT32)
                              (LDGCOL-REF17103 ':INT32)
                              (LDGNUM-REF17105 ':INT32)
                              (K-REF17110 ':INT32) (C-REF17111 ':FLOAT)
                              (S-REF17112 ':FLOAT)
                              (INFO-REF17114 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF17091 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF17092 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF17093 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF17094 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17095 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17097 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF17099 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF17101 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF17103 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF17105 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17110 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF17111 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF17112 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17114 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF17096 B)
                                            (BX-REF17098 BX)
                                            (PERM-REF17100 PERM)
                                            (GIVCOL-REF17102 GIVCOL)
                                            (GIVNUM-REF17104 GIVNUM)
                                            (POLES-REF17106 POLES)
                                            (DIFL-REF17107 DIFL)
                                            (DIFR-REF17108 DIFR)
                                            (Z-REF17109 Z)
                                            (WORK-REF17113 WORK))
      (%%SLALS0 ICOMPQ-REF17091 NL-REF17092 NR-REF17093 SQRE-REF17094
       NRHS-REF17095 B-REF17096 LDB-REF17097 BX-REF17098 LDBX-REF17099
       PERM-REF17100 GIVPTR-REF17101 GIVCOL-REF17102 LDGCOL-REF17103
       GIVNUM-REF17104 LDGNUM-REF17105 POLES-REF17106 DIFL-REF17107
       DIFR-REF17108 Z-REF17109 K-REF17110 C-REF17111 S-REF17112
       WORK-REF17113 INFO-REF17114))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPRFB "dtprfb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPRFB
    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB WORK
     LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPRFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17119 ':INT32) (N-REF17120 ':INT32)
                              (K-REF17121 ':INT32) (L-REF17122 ':INT32)
                              (LDV-REF17124 ':INT32)
                              (LDT-REF17126 ':INT32)
                              (LDA-REF17128 ':INT32)
                              (LDB-REF17130 ':INT32)
                              (LDWORK-REF17132 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17119 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17120 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17121 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17122 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17124 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17126 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17128 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17130 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17132 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17123 V)
                                            (T-REF17125 T)
                                            (A-REF17127 A)
                                            (B-REF17129 B)
                                            (WORK-REF17131 WORK))
      (%%DTPRFB SIDE TRANS DIRECT STOREV M-REF17119 N-REF17120
       K-REF17121 L-REF17122 V-REF17123 LDV-REF17124 T-REF17125
       LDT-REF17126 A-REF17127 LDA-REF17128 B-REF17129 LDB-REF17130
       WORK-REF17131 LDWORK-REF17132))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILAPREC "ilaprec_")
  ((PREC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)) :RETURNING :INT
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILAPREC (PREC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAPREC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING PREC))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAPREC PREC))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPEQU "sppequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17135 ':INT32)
                              (SCOND-REF17138 ':FLOAT)
                              (AMAX-REF17139 ':FLOAT)
                              (INFO-REF17140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17135 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF17138 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17139 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17136 AP)
                                            (S-REF17137 S))
      (%%SPPEQU UPLO N-REF17135 AP-REF17136 S-REF17137 SCOND-REF17138
       AMAX-REF17139 INFO-REF17140))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANGT "dlangt_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17142 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF17143 DL)
                                            (D-REF17144 D)
                                            (DU-REF17145 DU))
      (%%DLANGT NORM N-REF17142 DL-REF17143 D-REF17144 DU-REF17145))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQL2 "sgeql2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17146 ':INT32) (N-REF17147 ':INT32)
                              (LDA-REF17149 ':INT32)
                              (INFO-REF17152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17146 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17149 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17148 A)
                                            (TAU-REF17150 TAU)
                                            (WORK-REF17151 WORK))
      (%%SGEQL2 M-REF17146 N-REF17147 A-REF17148 LDA-REF17149
       TAU-REF17150 WORK-REF17151 INFO-REF17152))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GERCOND_C "zla_gercond_c_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (CAPPLY :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GERCOND_C
    (TRANS N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17154 ':INT32)
                              (LDA-REF17156 ':INT32)
                              (LDAF-REF17158 ':INT32)
                              (CAPPLY-REF17161 ':INT32)
                              (INFO-REF17162 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17156 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17158 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF17161 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17162 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17155 A)
                                            (AF-REF17157 AF)
                                            (IPIV-REF17159 IPIV)
                                            (C-REF17160 C)
                                            (WORK-REF17163 WORK)
                                            (RWORK-REF17164 RWORK))
      (%%ZLA_GERCOND_C TRANS N-REF17154 A-REF17155 LDA-REF17156
       AF-REF17157 LDAF-REF17158 IPIV-REF17159 C-REF17160
       CAPPLY-REF17161 INFO-REF17162 WORK-REF17163 RWORK-REF17164))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAPMR "slapmr_")
  ((FORWRD :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPMR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF17165 ':INT32)
                              (M-REF17166 ':INT32) (N-REF17167 ':INT32)
                              (LDX-REF17169 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF17165 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17166 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17167 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17169 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF17168 X)
                                            (K-REF17170 K))
      (%%SLAPMR FORWRD-REF17165 M-REF17166 N-REF17167 X-REF17168
       LDX-REF17169 K-REF17170))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGES3 "dgges3_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (VSL :FOREIGN-ADDRESS) (LDVSL :FOREIGN-ADDRESS)
   (VSR :FOREIGN-ADDRESS) (LDVSR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGES3
    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI BETA
     VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF17174 ':INT32)
                              (N-REF17175 ':INT32)
                              (LDA-REF17177 ':INT32)
                              (LDB-REF17179 ':INT32)
                              (SDIM-REF17180 ':INT32)
                              (LDVSL-REF17185 ':INT32)
                              (LDVSR-REF17187 ':INT32)
                              (LWORK-REF17189 ':INT32)
                              (INFO-REF17191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF17174 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17177 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17179 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17180 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF17185 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF17187 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17189 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17176 A)
                                            (B-REF17178 B)
                                            (ALPHAR-REF17181 ALPHAR)
                                            (ALPHAI-REF17182 ALPHAI)
                                            (BETA-REF17183 BETA)
                                            (VSL-REF17184 VSL)
                                            (VSR-REF17186 VSR)
                                            (WORK-REF17188 WORK)
                                            (BWORK-REF17190 BWORK))
      (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF17174 N-REF17175
       A-REF17176 LDA-REF17177 B-REF17178 LDB-REF17179 SDIM-REF17180
       ALPHAR-REF17181 ALPHAI-REF17182 BETA-REF17183 VSL-REF17184
       LDVSL-REF17185 VSR-REF17186 LDVSR-REF17187 WORK-REF17188
       LWORK-REF17189 BWORK-REF17190 INFO-REF17191))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_HERCOND_X "zla_hercond_x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_HERCOND_X
    (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17193 ':INT32)
                              (LDA-REF17195 ':INT32)
                              (LDAF-REF17197 ':INT32)
                              (INFO-REF17200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17193 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17195 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17197 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17194 A)
                                            (AF-REF17196 AF)
                                            (IPIV-REF17198 IPIV)
                                            (X-REF17199 X)
                                            (WORK-REF17201 WORK)
                                            (RWORK-REF17202 RWORK))
      (%%ZLA_HERCOND_X UPLO N-REF17193 A-REF17194 LDA-REF17195
       AF-REF17196 LDAF-REF17197 IPIV-REF17198 X-REF17199 INFO-REF17200
       WORK-REF17201 RWORK-REF17202))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYGS2 "ssygs2_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF17203 ':INT32)
                              (N-REF17205 ':INT32)
                              (LDA-REF17207 ':INT32)
                              (LDB-REF17209 ':INT32)
                              (INFO-REF17210 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF17203 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17205 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17207 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17209 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17210 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17206 A)
                                            (B-REF17208 B))
      (%%SSYGS2 ITYPE-REF17203 UPLO N-REF17205 A-REF17206 LDA-REF17207
       B-REF17208 LDB-REF17209 INFO-REF17210))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED9 "slaed9_")
  ((K :FOREIGN-ADDRESS) (KSTART :FOREIGN-ADDRESS)
   (KSTOP :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (DLAMDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (LDS :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED9
    (K KSTART KSTOP N D Q LDQ RHO DLAMDA W S LDS INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED9)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTART)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF17211 ':INT32)
                              (KSTART-REF17212 ':INT32)
                              (KSTOP-REF17213 ':INT32)
                              (N-REF17214 ':INT32)
                              (LDQ-REF17217 ':INT32)
                              (RHO-REF17218 ':FLOAT)
                              (LDS-REF17222 ':INT32)
                              (INFO-REF17223 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17211 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF17212 :INT32) KSTART)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF17213 :INT32) KSTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17214 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17217 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF17218 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF17222 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17223 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17215 D)
                                            (Q-REF17216 Q)
                                            (DLAMDA-REF17219 DLAMDA)
                                            (W-REF17220 W)
                                            (S-REF17221 S))
      (%%SLAED9 K-REF17211 KSTART-REF17212 KSTOP-REF17213 N-REF17214
       D-REF17215 Q-REF17216 LDQ-REF17217 RHO-REF17218 DLAMDA-REF17219
       W-REF17220 S-REF17221 LDS-REF17222 INFO-REF17223))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYMV "zsymv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYMV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17225 ':INT32)
                              (ALPHA-REF17226
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF17228 ':INT32)
                              (INCX-REF17230 ':INT32)
                              (BETA-REF17231
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF17233 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17225 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF17226
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17228 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF17230 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF17231
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF17233 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17227 A)
                                            (X-REF17229 X)
                                            (Y-REF17232 Y))
      (%%ZSYMV UPLO N-REF17225 ALPHA-REF17226 A-REF17227 LDA-REF17228
       X-REF17229 INCX-REF17230 BETA-REF17231 Y-REF17232
       INCY-REF17233))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAED8 "zlaed8_")
  ((K :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (QSIZ :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (CUTPNT :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (DLAMDA :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (INDXP :FOREIGN-ADDRESS) (INDX :FOREIGN-ADDRESS)
   (INDXQ :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAED8
    (K N QSIZ Q LDQ D RHO CUTPNT Z DLAMDA Q2 LDQ2 W INDXP INDX INDXQ
     PERM GIVPTR GIVCOL GIVNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED8)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF17234 ':INT32) (N-REF17235 ':INT32)
                              (QSIZ-REF17236 ':INT32)
                              (LDQ-REF17238 ':INT32)
                              (RHO-REF17240 ':DOUBLE)
                              (CUTPNT-REF17241 ':INT32)
                              (LDQ2-REF17245 ':INT32)
                              (GIVPTR-REF17251 ':INT32)
                              (INFO-REF17254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17234 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17235 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF17236 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17238 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF17240 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF17241 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF17245 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF17251 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17254 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF17237 Q)
                                            (D-REF17239 D)
                                            (Z-REF17242 Z)
                                            (DLAMDA-REF17243 DLAMDA)
                                            (Q2-REF17244 Q2)
                                            (W-REF17246 W)
                                            (INDXP-REF17247 INDXP)
                                            (INDX-REF17248 INDX)
                                            (INDXQ-REF17249 INDXQ)
                                            (PERM-REF17250 PERM)
                                            (GIVCOL-REF17252 GIVCOL)
                                            (GIVNUM-REF17253 GIVNUM))
      (%%ZLAED8 K-REF17234 N-REF17235 QSIZ-REF17236 Q-REF17237
       LDQ-REF17238 D-REF17239 RHO-REF17240 CUTPNT-REF17241 Z-REF17242
       DLAMDA-REF17243 Q2-REF17244 LDQ2-REF17245 W-REF17246
       INDXP-REF17247 INDX-REF17248 INDXQ-REF17249 PERM-REF17250
       GIVPTR-REF17251 GIVCOL-REF17252 GIVNUM-REF17253 INFO-REF17254))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASQ5 "dlasq5_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (DMIN :FOREIGN-ADDRESS)
   (DMIN1 :FOREIGN-ADDRESS) (DMIN2 :FOREIGN-ADDRESS)
   (DN :FOREIGN-ADDRESS) (DNM1 :FOREIGN-ADDRESS)
   (DNM2 :FOREIGN-ADDRESS) (IEEE :FOREIGN-ADDRESS)
   (EPS :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASQ5
    (I0 N0 Z PP TAU SIGMA DMIN DMIN1 DMIN2 DN DNM1 DNM2 IEEE EPS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF17255 ':INT32)
                              (N0-REF17256 ':INT32)
                              (PP-REF17258 ':INT32)
                              (TAU-REF17259 ':DOUBLE)
                              (SIGMA-REF17260 ':DOUBLE)
                              (DMIN-REF17261 ':DOUBLE)
                              (DMIN1-REF17262 ':DOUBLE)
                              (DMIN2-REF17263 ':DOUBLE)
                              (DN-REF17264 ':DOUBLE)
                              (DNM1-REF17265 ':DOUBLE)
                              (DNM2-REF17266 ':DOUBLE)
                              (IEEE-REF17267 ':INT32)
                              (EPS-REF17268 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF17255 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF17256 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF17258 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF17259 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF17260 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF17261 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF17262 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF17263 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF17264 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF17265 :DOUBLE) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF17266 :DOUBLE) DNM2)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF17267 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF17268 :DOUBLE) EPS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF17257 Z))
      (%%DLASQ5 I0-REF17255 N0-REF17256 Z-REF17257 PP-REF17258
       TAU-REF17259 SIGMA-REF17260 DMIN-REF17261 DMIN1-REF17262
       DMIN2-REF17263 DN-REF17264 DNM1-REF17265 DNM2-REF17266
       IEEE-REF17267 EPS-REF17268))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASET "claset_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASET)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17270 ':INT32) (N-REF17271 ':INT32)
                              (ALPHA-REF17272
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (BETA-REF17273
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF17275 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17270 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17271 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF17272
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF17273
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17275 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17274 A))
      (%%CLASET UPLO M-REF17270 N-REF17271 ALPHA-REF17272 BETA-REF17273
       A-REF17274 LDA-REF17275))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOSV "zposv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17277 ':INT32)
                              (NRHS-REF17278 ':INT32)
                              (LDA-REF17280 ':INT32)
                              (LDB-REF17282 ':INT32)
                              (INFO-REF17283 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17277 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17278 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17280 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17282 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17283 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17279 A)
                                            (B-REF17281 B))
      (%%ZPOSV UPLO N-REF17277 NRHS-REF17278 A-REF17279 LDA-REF17280
       B-REF17281 LDB-REF17282 INFO-REF17283))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYSV_RK "dsysv_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYSV_RK
    (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17285 ':INT32)
                              (NRHS-REF17286 ':INT32)
                              (LDA-REF17288 ':INT32)
                              (LDB-REF17292 ':INT32)
                              (LWORK-REF17294 ':INT32)
                              (INFO-REF17295 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17285 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17286 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17288 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17292 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17294 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17295 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17287 A)
                                            (E-REF17289 E)
                                            (IPIV-REF17290 IPIV)
                                            (B-REF17291 B)
                                            (WORK-REF17293 WORK))
      (%%DSYSV_RK UPLO N-REF17285 NRHS-REF17286 A-REF17287 LDA-REF17288
       E-REF17289 IPIV-REF17290 B-REF17291 LDB-REF17292 WORK-REF17293
       LWORK-REF17294 INFO-REF17295))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEHRD "zgehrd_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEHRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17296 ':INT32)
                              (ILO-REF17297 ':INT32)
                              (IHI-REF17298 ':INT32)
                              (LDA-REF17300 ':INT32)
                              (LWORK-REF17303 ':INT32)
                              (INFO-REF17304 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17296 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17297 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17298 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17300 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17303 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17304 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17299 A)
                                            (TAU-REF17301 TAU)
                                            (WORK-REF17302 WORK))
      (%%ZGEHRD N-REF17296 ILO-REF17297 IHI-REF17298 A-REF17299
       LDA-REF17300 TAU-REF17301 WORK-REF17302 LWORK-REF17303
       INFO-REF17304))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGECON "zgecon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGECON (NORM N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGECON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17306 ':INT32)
                              (LDA-REF17308 ':INT32)
                              (ANORM-REF17309 ':DOUBLE)
                              (RCOND-REF17310 ':DOUBLE)
                              (INFO-REF17313 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17308 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17309 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17310 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17313 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17307 A)
                                            (WORK-REF17311 WORK)
                                            (RWORK-REF17312 RWORK))
      (%%ZGECON NORM N-REF17306 A-REF17307 LDA-REF17308 ANORM-REF17309
       RCOND-REF17310 WORK-REF17311 RWORK-REF17312 INFO-REF17313))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPEV "sspev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPEV (JOBZ UPLO N AP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17316 ':INT32)
                              (LDZ-REF17320 ':INT32)
                              (INFO-REF17322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17316 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17320 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17317 AP)
                                            (W-REF17318 W)
                                            (Z-REF17319 Z)
                                            (WORK-REF17321 WORK))
      (%%SSPEV JOBZ UPLO N-REF17316 AP-REF17317 W-REF17318 Z-REF17319
       LDZ-REF17320 WORK-REF17321 INFO-REF17322))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZLA_GERFSX_EXTENDED "zla_gerfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS) (TRANS_TYPE :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERRS_N :FOREIGN-ADDRESS) (ERRS_C :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GERFSX_EXTENDED
    (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
     LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL RCOND ITHRESH
     RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERRS_N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERRS_C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF17323 ':INT32)
                              (TRANS_TYPE-REF17324 ':INT32)
                              (N-REF17325 ':INT32)
                              (NRHS-REF17326 ':INT32)
                              (LDA-REF17328 ':INT32)
                              (LDAF-REF17330 ':INT32)
                              (COLEQU-REF17332 ':INT32)
                              (LDB-REF17335 ':INT32)
                              (LDY-REF17337 ':INT32)
                              (N_NORMS-REF17339 ':INT32)
                              (RCOND-REF17346 ':DOUBLE)
                              (ITHRESH-REF17347 ':INT32)
                              (RTHRESH-REF17348 ':DOUBLE)
                              (DZ_UB-REF17349 ':DOUBLE)
                              (IGNORE_CWISE-REF17350 ':INT32)
                              (INFO-REF17351 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF17323 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF17324 :INT32)
                      TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17326 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17328 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17330 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF17332 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17335 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF17337 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF17339 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17346 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF17347 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF17348 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF17349 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF17350 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17351 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17327 A)
                                            (AF-REF17329 AF)
                                            (IPIV-REF17331 IPIV)
                                            (C-REF17333 C)
                                            (B-REF17334 B)
                                            (Y-REF17336 Y)
                                            (BERR_OUT-REF17338
                                             BERR_OUT)
                                            (ERRS_N-REF17340 ERRS_N)
                                            (ERRS_C-REF17341 ERRS_C)
                                            (RES-REF17342 RES)
                                            (AYB-REF17343 AYB)
                                            (DY-REF17344 DY)
                                            (Y_TAIL-REF17345 Y_TAIL))
      (%%ZLA_GERFSX_EXTENDED PREC_TYPE-REF17323 TRANS_TYPE-REF17324
       N-REF17325 NRHS-REF17326 A-REF17327 LDA-REF17328 AF-REF17329
       LDAF-REF17330 IPIV-REF17331 COLEQU-REF17332 C-REF17333
       B-REF17334 LDB-REF17335 Y-REF17336 LDY-REF17337
       BERR_OUT-REF17338 N_NORMS-REF17339 ERRS_N-REF17340
       ERRS_C-REF17341 RES-REF17342 AYB-REF17343 DY-REF17344
       Y_TAIL-REF17345 RCOND-REF17346 ITHRESH-REF17347 RTHRESH-REF17348
       DZ_UB-REF17349 IGNORE_CWISE-REF17350 INFO-REF17351))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED7 "slaed7_")
  ((ICOMPQ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (QSIZ :FOREIGN-ADDRESS) (TLVLS :FOREIGN-ADDRESS)
   (CURLVL :FOREIGN-ADDRESS) (CURPBM :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (INDXQ :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (CUTPNT :FOREIGN-ADDRESS) (QSTORE :FOREIGN-ADDRESS)
   (QPTR :FOREIGN-ADDRESS) (PRMPTR :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (GIVNUM :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED7
    (ICOMPQ N QSIZ TLVLS CURLVL CURPBM D Q LDQ INDXQ RHO CUTPNT QSTORE
     QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED7)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) QSTORE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    QPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PRMPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF17352 ':INT32)
                              (N-REF17353 ':INT32)
                              (QSIZ-REF17354 ':INT32)
                              (TLVLS-REF17355 ':INT32)
                              (CURLVL-REF17356 ':INT32)
                              (CURPBM-REF17357 ':INT32)
                              (LDQ-REF17360 ':INT32)
                              (RHO-REF17362 ':FLOAT)
                              (CUTPNT-REF17363 ':INT32)
                              (INFO-REF17373 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF17352 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF17354 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF17355 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF17356 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF17357 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17360 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF17362 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF17363 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17373 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17358 D)
                                            (Q-REF17359 Q)
                                            (INDXQ-REF17361 INDXQ)
                                            (QSTORE-REF17364 QSTORE)
                                            (QPTR-REF17365 QPTR)
                                            (PRMPTR-REF17366 PRMPTR)
                                            (PERM-REF17367 PERM)
                                            (GIVPTR-REF17368 GIVPTR)
                                            (GIVCOL-REF17369 GIVCOL)
                                            (GIVNUM-REF17370 GIVNUM)
                                            (WORK-REF17371 WORK)
                                            (IWORK-REF17372 IWORK))
      (%%SLAED7 ICOMPQ-REF17352 N-REF17353 QSIZ-REF17354 TLVLS-REF17355
       CURLVL-REF17356 CURPBM-REF17357 D-REF17358 Q-REF17359
       LDQ-REF17360 INDXQ-REF17361 RHO-REF17362 CUTPNT-REF17363
       QSTORE-REF17364 QPTR-REF17365 PRMPTR-REF17366 PERM-REF17367
       GIVPTR-REF17368 GIVCOL-REF17369 GIVNUM-REF17370 WORK-REF17371
       IWORK-REF17372 INFO-REF17373))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEMLQT "zgemlqt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEMLQT
    (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMLQT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17376 ':INT32) (N-REF17377 ':INT32)
                              (K-REF17378 ':INT32)
                              (MB-REF17379 ':INT32)
                              (LDV-REF17381 ':INT32)
                              (LDT-REF17383 ':INT32)
                              (LDC-REF17385 ':INT32)
                              (INFO-REF17387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17376 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17378 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17379 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17381 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17383 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17385 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17387 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17380 V)
                                            (T-REF17382 T)
                                            (C-REF17384 C)
                                            (WORK-REF17386 WORK))
      (%%ZGEMLQT SIDE TRANS M-REF17376 N-REF17377 K-REF17378
       MB-REF17379 V-REF17380 LDV-REF17381 T-REF17382 LDT-REF17383
       C-REF17384 LDC-REF17385 WORK-REF17386 INFO-REF17387))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBCON "cgbcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBCON
    (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17389 ':INT32)
                              (KL-REF17390 ':INT32)
                              (KU-REF17391 ':INT32)
                              (LDAB-REF17393 ':INT32)
                              (ANORM-REF17395 ':FLOAT)
                              (RCOND-REF17396 ':FLOAT)
                              (INFO-REF17399 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17389 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17390 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17391 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17393 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17395 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17396 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17399 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17392 AB)
                                            (IPIV-REF17394 IPIV)
                                            (WORK-REF17397 WORK)
                                            (RWORK-REF17398 RWORK))
      (%%CGBCON NORM N-REF17389 KL-REF17390 KU-REF17391 AB-REF17392
       LDAB-REF17393 IPIV-REF17394 ANORM-REF17395 RCOND-REF17396
       WORK-REF17397 RWORK-REF17398 INFO-REF17399))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPORFSX "sporfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPORFSX
    (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPORFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17402 ':INT32)
                              (NRHS-REF17403 ':INT32)
                              (LDA-REF17405 ':INT32)
                              (LDAF-REF17407 ':INT32)
                              (LDB-REF17410 ':INT32)
                              (LDX-REF17412 ':INT32)
                              (RCOND-REF17413 ':FLOAT)
                              (N_ERR_BNDS-REF17415 ':INT32)
                              (NPARAMS-REF17418 ':INT32)
                              (INFO-REF17422 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17403 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17405 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17407 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17410 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17412 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17413 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17415 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17418 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17422 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17404 A)
                                            (AF-REF17406 AF)
                                            (S-REF17408 S)
                                            (B-REF17409 B)
                                            (X-REF17411 X)
                                            (BERR-REF17414 BERR)
                                            (ERR_BNDS_NORM-REF17416
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF17417
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF17419 PARAMS)
                                            (WORK-REF17420 WORK)
                                            (IWORK-REF17421 IWORK))
      (%%SPORFSX UPLO EQUED N-REF17402 NRHS-REF17403 A-REF17404
       LDA-REF17405 AF-REF17406 LDAF-REF17407 S-REF17408 B-REF17409
       LDB-REF17410 X-REF17411 LDX-REF17412 RCOND-REF17413
       BERR-REF17414 N_ERR_BNDS-REF17415 ERR_BNDS_NORM-REF17416
       ERR_BNDS_COMP-REF17417 NPARAMS-REF17418 PARAMS-REF17419
       WORK-REF17420 IWORK-REF17421 INFO-REF17422))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPGV "zhpgv_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPGV
    (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF17423 ':INT32)
                              (N-REF17426 ':INT32)
                              (LDZ-REF17431 ':INT32)
                              (INFO-REF17434 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF17423 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17426 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17431 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17434 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17427 AP)
                                            (BP-REF17428 BP)
                                            (W-REF17429 W)
                                            (Z-REF17430 Z)
                                            (WORK-REF17432 WORK)
                                            (RWORK-REF17433 RWORK))
      (%%ZHPGV ITYPE-REF17423 JOBZ UPLO N-REF17426 AP-REF17427
       BP-REF17428 W-REF17429 Z-REF17430 LDZ-REF17431 WORK-REF17432
       RWORK-REF17433 INFO-REF17434))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILAZLR "ilazlr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILAZLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAZLR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17435 ':INT32) (N-REF17436 ':INT32)
                              (LDA-REF17438 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17435 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17436 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17438 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17437 A))
      (%%ILAZLR M-REF17435 N-REF17436 A-REF17437 LDA-REF17438))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARSCL2 "zlarscl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARSCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17439 ':INT32) (N-REF17440 ':INT32)
                              (LDX-REF17443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17439 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17443 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17441 D)
                                            (X-REF17442 X))
      (%%ZLARSCL2 M-REF17439 N-REF17440 D-REF17441 X-REF17442
       LDX-REF17443))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORCSD2BY1 "dorcsd2by1_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (U1 :FOREIGN-ADDRESS)
   (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORCSD2BY1
    (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1 U2 LDU2
     V1T LDV1T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORCSD2BY1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17447 ':INT32) (P-REF17448 ':INT32)
                              (Q-REF17449 ':INT32)
                              (LDX11-REF17451 ':INT32)
                              (LDX21-REF17453 ':INT32)
                              (LDU1-REF17456 ':INT32)
                              (LDU2-REF17458 ':INT32)
                              (LDV1T-REF17460 ':INT32)
                              (LWORK-REF17462 ':INT32)
                              (INFO-REF17464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17447 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17448 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF17449 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF17451 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF17453 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF17456 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF17458 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF17460 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17462 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF17450 X11)
                                            (X21-REF17452 X21)
                                            (THETA-REF17454 THETA)
                                            (U1-REF17455 U1)
                                            (U2-REF17457 U2)
                                            (V1T-REF17459 V1T)
                                            (WORK-REF17461 WORK)
                                            (IWORK-REF17463 IWORK))
      (%%DORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF17447 P-REF17448 Q-REF17449
       X11-REF17450 LDX11-REF17451 X21-REF17452 LDX21-REF17453
       THETA-REF17454 U1-REF17455 LDU1-REF17456 U2-REF17457
       LDU2-REF17458 V1T-REF17459 LDV1T-REF17460 WORK-REF17461
       LWORK-REF17462 IWORK-REF17463 INFO-REF17464))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAGV2 "dlagv2_")
  ((A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (CSL :FOREIGN-ADDRESS) (SNL :FOREIGN-ADDRESS) (CSR :FOREIGN-ADDRESS)
   (SNR :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAGV2
    (A LDA B LDB ALPHAR ALPHAI BETA CSL SNL CSR SNR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF17466 ':INT32)
                              (LDB-REF17468 ':INT32)
                              (CSL-REF17472 ':DOUBLE)
                              (SNL-REF17473 ':DOUBLE)
                              (CSR-REF17474 ':DOUBLE)
                              (SNR-REF17475 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17466 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17468 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF17472 :DOUBLE) CSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF17473 :DOUBLE) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF17474 :DOUBLE) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF17475 :DOUBLE) SNR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17465 A)
                                            (B-REF17467 B)
                                            (ALPHAR-REF17469 ALPHAR)
                                            (ALPHAI-REF17470 ALPHAI)
                                            (BETA-REF17471 BETA))
      (%%DLAGV2 A-REF17465 LDA-REF17466 B-REF17467 LDB-REF17468
       ALPHAR-REF17469 ALPHAI-REF17470 BETA-REF17471 CSL-REF17472
       SNL-REF17473 CSR-REF17474 SNR-REF17475))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPGV "chpgv_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPGV
    (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF17476 ':INT32)
                              (N-REF17479 ':INT32)
                              (LDZ-REF17484 ':INT32)
                              (INFO-REF17487 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF17476 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17479 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17484 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17487 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17480 AP)
                                            (BP-REF17481 BP)
                                            (W-REF17482 W)
                                            (Z-REF17483 Z)
                                            (WORK-REF17485 WORK)
                                            (RWORK-REF17486 RWORK))
      (%%CHPGV ITYPE-REF17476 JOBZ UPLO N-REF17479 AP-REF17480
       BP-REF17481 W-REF17482 Z-REF17483 LDZ-REF17484 WORK-REF17485
       RWORK-REF17486 INFO-REF17487))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGELQT "dgelqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17488 ':INT32) (N-REF17489 ':INT32)
                              (MB-REF17490 ':INT32)
                              (LDA-REF17492 ':INT32)
                              (LDT-REF17494 ':INT32)
                              (INFO-REF17496 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17488 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17489 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17490 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17492 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17494 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17496 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17491 A)
                                            (T-REF17493 T)
                                            (WORK-REF17495 WORK))
      (%%DGELQT M-REF17488 N-REF17489 MB-REF17490 A-REF17491
       LDA-REF17492 T-REF17493 LDT-REF17494 WORK-REF17495
       INFO-REF17496))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAED0 "zlaed0_")
  ((QSIZ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (QSTORE :FOREIGN-ADDRESS) (LDQS :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAED0
    (QSIZ N D E Q LDQ QSTORE LDQS RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    QSTORE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF17497 ':INT32)
                              (N-REF17498 ':INT32)
                              (LDQ-REF17502 ':INT32)
                              (LDQS-REF17504 ':INT32)
                              (INFO-REF17507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF17497 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17498 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17502 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF17504 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17499 D)
                                            (E-REF17500 E)
                                            (Q-REF17501 Q)
                                            (QSTORE-REF17503 QSTORE)
                                            (RWORK-REF17505 RWORK)
                                            (IWORK-REF17506 IWORK))
      (%%ZLAED0 QSIZ-REF17497 N-REF17498 D-REF17499 E-REF17500
       Q-REF17501 LDQ-REF17502 QSTORE-REF17503 LDQS-REF17504
       RWORK-REF17505 IWORK-REF17506 INFO-REF17507))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQGB "claqgb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQGB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQGB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17508 ':INT32) (N-REF17509 ':INT32)
                              (KL-REF17510 ':INT32)
                              (KU-REF17511 ':INT32)
                              (LDAB-REF17513 ':INT32)
                              (ROWCND-REF17516 ':FLOAT)
                              (COLCND-REF17517 ':FLOAT)
                              (AMAX-REF17518 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17508 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17510 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17511 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17513 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17516 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17517 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17518 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17512 AB)
                                            (R-REF17514 R)
                                            (C-REF17515 C))
      (%%CLAQGB M-REF17508 N-REF17509 KL-REF17510 KU-REF17511
       AB-REF17512 LDAB-REF17513 R-REF17514 C-REF17515 ROWCND-REF17516
       COLCND-REF17517 AMAX-REF17518 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHESV "chesv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHESV
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17521 ':INT32)
                              (NRHS-REF17522 ':INT32)
                              (LDA-REF17524 ':INT32)
                              (LDB-REF17527 ':INT32)
                              (LWORK-REF17529 ':INT32)
                              (INFO-REF17530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17522 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17524 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17527 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17529 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17523 A)
                                            (IPIV-REF17525 IPIV)
                                            (B-REF17526 B)
                                            (WORK-REF17528 WORK))
      (%%CHESV UPLO N-REF17521 NRHS-REF17522 A-REF17523 LDA-REF17524
       IPIV-REF17525 B-REF17526 LDB-REF17527 WORK-REF17528
       LWORK-REF17529 INFO-REF17530))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAHQR "clahqr_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAHQR
    (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF17531 ':INT32)
                              (WANTZ-REF17532 ':INT32)
                              (N-REF17533 ':INT32)
                              (ILO-REF17534 ':INT32)
                              (IHI-REF17535 ':INT32)
                              (LDH-REF17537 ':INT32)
                              (ILOZ-REF17539 ':INT32)
                              (IHIZ-REF17540 ':INT32)
                              (LDZ-REF17542 ':INT32)
                              (INFO-REF17543 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF17531 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17532 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17533 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17534 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17535 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF17537 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF17539 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF17540 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17542 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17543 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF17536 H)
                                            (W-REF17538 W)
                                            (Z-REF17541 Z))
      (%%CLAHQR WANTT-REF17531 WANTZ-REF17532 N-REF17533 ILO-REF17534
       IHI-REF17535 H-REF17536 LDH-REF17537 W-REF17538 ILOZ-REF17539
       IHIZ-REF17540 Z-REF17541 LDZ-REF17542 INFO-REF17543))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPPTRI "cpptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17545 ':INT32)
                              (INFO-REF17547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17545 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17546 AP))
      (%%CPPTRI UPLO N-REF17545 AP-REF17546 INFO-REF17547))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAEIN "slaein_")
  ((RIGHTV :FOREIGN-ADDRESS) (NOINIT :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (VI :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (EPS3 :FOREIGN-ADDRESS)
   (SMLNUM :FOREIGN-ADDRESS) (BIGNUM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAEIN
    (RIGHTV NOINIT N H LDH WR WI VR VI B LDB WORK EPS3 SMLNUM BIGNUM
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS3)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BIGNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF17548 ':INT32)
                              (NOINIT-REF17549 ':INT32)
                              (N-REF17550 ':INT32)
                              (LDH-REF17552 ':INT32)
                              (WR-REF17553 ':FLOAT)
                              (WI-REF17554 ':FLOAT)
                              (LDB-REF17558 ':INT32)
                              (EPS3-REF17560 ':FLOAT)
                              (SMLNUM-REF17561 ':FLOAT)
                              (BIGNUM-REF17562 ':FLOAT)
                              (INFO-REF17563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF17548 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF17549 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF17552 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF17553 :FLOAT) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF17554 :FLOAT) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17558 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF17560 :FLOAT) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF17561 :FLOAT) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF17562 :FLOAT) BIGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17563 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF17551 H)
                                            (VR-REF17555 VR)
                                            (VI-REF17556 VI)
                                            (B-REF17557 B)
                                            (WORK-REF17559 WORK))
      (%%SLAEIN RIGHTV-REF17548 NOINIT-REF17549 N-REF17550 H-REF17551
       LDH-REF17552 WR-REF17553 WI-REF17554 VR-REF17555 VI-REF17556
       B-REF17557 LDB-REF17558 WORK-REF17559 EPS3-REF17560
       SMLNUM-REF17561 BIGNUM-REF17562 INFO-REF17563))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEVX "dstevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEVX
    (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ WORK IWORK IFAIL
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17566 ':INT32)
                              (VL-REF17569 ':DOUBLE)
                              (VU-REF17570 ':DOUBLE)
                              (IL-REF17571 ':INT32)
                              (IU-REF17572 ':INT32)
                              (ABSTOL-REF17573 ':DOUBLE)
                              (M-REF17574 ':INT32)
                              (LDZ-REF17577 ':INT32)
                              (INFO-REF17581 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17566 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF17569 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF17570 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF17571 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF17572 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF17573 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17574 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17577 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17581 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17567 D)
                                            (E-REF17568 E)
                                            (W-REF17575 W)
                                            (Z-REF17576 Z)
                                            (WORK-REF17578 WORK)
                                            (IWORK-REF17579 IWORK)
                                            (IFAIL-REF17580 IFAIL))
      (%%DSTEVX JOBZ RANGE N-REF17566 D-REF17567 E-REF17568 VL-REF17569
       VU-REF17570 IL-REF17571 IU-REF17572 ABSTOL-REF17573 M-REF17574
       W-REF17575 Z-REF17576 LDZ-REF17577 WORK-REF17578 IWORK-REF17579
       IFAIL-REF17580 INFO-REF17581))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNCSD "zuncsd_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV2T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIGNS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X12 :FOREIGN-ADDRESS) (LDX12 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (X22 :FOREIGN-ADDRESS) (LDX22 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (U1 :FOREIGN-ADDRESS)
   (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (V2T :FOREIGN-ADDRESS)
   (LDV2T :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNCSD
    (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12 LDX12
     X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T V2T LDV2T WORK
     LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNCSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X12)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V2T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17588 ':INT32) (P-REF17589 ':INT32)
                              (Q-REF17590 ':INT32)
                              (LDX11-REF17592 ':INT32)
                              (LDX12-REF17594 ':INT32)
                              (LDX21-REF17596 ':INT32)
                              (LDX22-REF17598 ':INT32)
                              (LDU1-REF17601 ':INT32)
                              (LDU2-REF17603 ':INT32)
                              (LDV1T-REF17605 ':INT32)
                              (LDV2T-REF17607 ':INT32)
                              (LWORK-REF17609 ':INT32)
                              (LRWORK-REF17611 ':INT32)
                              (INFO-REF17613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17588 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17589 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF17590 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF17592 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF17594 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF17596 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF17598 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF17601 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF17603 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF17605 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF17607 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17609 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17611 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17613 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF17591 X11)
                                            (X12-REF17593 X12)
                                            (X21-REF17595 X21)
                                            (X22-REF17597 X22)
                                            (THETA-REF17599 THETA)
                                            (U1-REF17600 U1)
                                            (U2-REF17602 U2)
                                            (V1T-REF17604 V1T)
                                            (V2T-REF17606 V2T)
                                            (WORK-REF17608 WORK)
                                            (RWORK-REF17610 RWORK)
                                            (IWORK-REF17612 IWORK))
      (%%ZUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF17588
       P-REF17589 Q-REF17590 X11-REF17591 LDX11-REF17592 X12-REF17593
       LDX12-REF17594 X21-REF17595 LDX21-REF17596 X22-REF17597
       LDX22-REF17598 THETA-REF17599 U1-REF17600 LDU1-REF17601
       U2-REF17602 LDU2-REF17603 V1T-REF17604 LDV1T-REF17605
       V2T-REF17606 LDV2T-REF17607 WORK-REF17608 LWORK-REF17609
       RWORK-REF17610 LRWORK-REF17611 IWORK-REF17612 INFO-REF17613))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYRFS "dsyrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYRFS
    (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17615 ':INT32)
                              (NRHS-REF17616 ':INT32)
                              (LDA-REF17618 ':INT32)
                              (LDAF-REF17620 ':INT32)
                              (LDB-REF17623 ':INT32)
                              (LDX-REF17625 ':INT32)
                              (INFO-REF17630 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17615 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17616 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17618 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17620 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17623 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17625 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17630 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17617 A)
                                            (AF-REF17619 AF)
                                            (IPIV-REF17621 IPIV)
                                            (B-REF17622 B)
                                            (X-REF17624 X)
                                            (FERR-REF17626 FERR)
                                            (BERR-REF17627 BERR)
                                            (WORK-REF17628 WORK)
                                            (IWORK-REF17629 IWORK))
      (%%DSYRFS UPLO N-REF17615 NRHS-REF17616 A-REF17617 LDA-REF17618
       AF-REF17619 LDAF-REF17620 IPIV-REF17621 B-REF17622 LDB-REF17623
       X-REF17624 LDX-REF17625 FERR-REF17626 BERR-REF17627
       WORK-REF17628 IWORK-REF17629 INFO-REF17630))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPMV "cspmv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPMV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17632 ':INT32)
                              (ALPHA-REF17633
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF17636 ':INT32)
                              (BETA-REF17637
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF17639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17632 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF17633
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF17636 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF17637
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF17639 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17634 AP)
                                            (X-REF17635 X)
                                            (Y-REF17638 Y))
      (%%CSPMV UPLO N-REF17632 ALPHA-REF17633 AP-REF17634 X-REF17635
       INCX-REF17636 BETA-REF17637 Y-REF17638 INCY-REF17639))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPTEQR "cpteqr_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17641 ':INT32)
                              (LDZ-REF17645 ':INT32)
                              (INFO-REF17647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17641 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17645 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17647 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17642 D)
                                            (E-REF17643 E)
                                            (Z-REF17644 Z)
                                            (WORK-REF17646 WORK))
      (%%CPTEQR COMPZ N-REF17641 D-REF17642 E-REF17643 Z-REF17644
       LDZ-REF17645 WORK-REF17646 INFO-REF17647))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESC2 "dgesc2_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (RHS :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (JPIV :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESC2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17648 ':INT32)
                              (LDA-REF17650 ':INT32)
                              (SCALE-REF17654 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17650 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17654 :DOUBLE) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17649 A)
                                            (RHS-REF17651 RHS)
                                            (IPIV-REF17652 IPIV)
                                            (JPIV-REF17653 JPIV))
      (%%DGESC2 N-REF17648 A-REF17649 LDA-REF17650 RHS-REF17651
       IPIV-REF17652 JPIV-REF17653 SCALE-REF17654))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGETRF2 "zgetrf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17655 ':INT32) (N-REF17656 ':INT32)
                              (LDA-REF17658 ':INT32)
                              (INFO-REF17660 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17655 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17656 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17658 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17660 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17657 A)
                                            (IPIV-REF17659 IPIV))
      (%%ZGETRF2 M-REF17655 N-REF17656 A-REF17657 LDA-REF17658
       IPIV-REF17659 INFO-REF17660))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRD "zhetrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17662 ':INT32)
                              (LDA-REF17664 ':INT32)
                              (LWORK-REF17669 ':INT32)
                              (INFO-REF17670 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17662 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17664 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17669 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17670 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17663 A)
                                            (D-REF17665 D)
                                            (E-REF17666 E)
                                            (TAU-REF17667 TAU)
                                            (WORK-REF17668 WORK))
      (%%ZHETRD UPLO N-REF17662 A-REF17663 LDA-REF17664 D-REF17665
       E-REF17666 TAU-REF17667 WORK-REF17668 LWORK-REF17669
       INFO-REF17670))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTF2_ROOK "ssytf2_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17672 ':INT32)
                              (LDA-REF17674 ':INT32)
                              (INFO-REF17676 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17672 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17674 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17676 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17673 A)
                                            (IPIV-REF17675 IPIV))
      (%%SSYTF2_ROOK UPLO N-REF17672 A-REF17673 LDA-REF17674
       IPIV-REF17675 INFO-REF17676))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPEVX "zhpevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPEVX
    (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK RWORK IWORK
     IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17680 ':INT32)
                              (VL-REF17682 ':DOUBLE)
                              (VU-REF17683 ':DOUBLE)
                              (IL-REF17684 ':INT32)
                              (IU-REF17685 ':INT32)
                              (ABSTOL-REF17686 ':DOUBLE)
                              (M-REF17687 ':INT32)
                              (LDZ-REF17690 ':INT32)
                              (INFO-REF17695 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17680 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF17682 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF17683 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF17684 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF17685 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF17686 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17687 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17690 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17695 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17681 AP)
                                            (W-REF17688 W)
                                            (Z-REF17689 Z)
                                            (WORK-REF17691 WORK)
                                            (RWORK-REF17692 RWORK)
                                            (IWORK-REF17693 IWORK)
                                            (IFAIL-REF17694 IFAIL))
      (%%ZHPEVX JOBZ RANGE UPLO N-REF17680 AP-REF17681 VL-REF17682
       VU-REF17683 IL-REF17684 IU-REF17685 ABSTOL-REF17686 M-REF17687
       W-REF17688 Z-REF17689 LDZ-REF17690 WORK-REF17691 RWORK-REF17692
       IWORK-REF17693 IFAIL-REF17694 INFO-REF17695))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEGS2 "chegs2_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF17696 ':INT32)
                              (N-REF17698 ':INT32)
                              (LDA-REF17700 ':INT32)
                              (LDB-REF17702 ':INT32)
                              (INFO-REF17703 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF17696 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17698 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17700 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17702 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17703 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17699 A)
                                            (B-REF17701 B))
      (%%CHEGS2 ITYPE-REF17696 UPLO N-REF17698 A-REF17699 LDA-REF17700
       B-REF17701 LDB-REF17702 INFO-REF17703))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASQ5 "slasq5_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (DMIN :FOREIGN-ADDRESS)
   (DMIN1 :FOREIGN-ADDRESS) (DMIN2 :FOREIGN-ADDRESS)
   (DN :FOREIGN-ADDRESS) (DNM1 :FOREIGN-ADDRESS)
   (DNM2 :FOREIGN-ADDRESS) (IEEE :FOREIGN-ADDRESS)
   (EPS :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASQ5
    (I0 N0 Z PP TAU SIGMA DMIN DMIN1 DMIN2 DN DNM1 DNM2 IEEE EPS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF17704 ':INT32)
                              (N0-REF17705 ':INT32)
                              (PP-REF17707 ':INT32)
                              (TAU-REF17708 ':FLOAT)
                              (SIGMA-REF17709 ':FLOAT)
                              (DMIN-REF17710 ':FLOAT)
                              (DMIN1-REF17711 ':FLOAT)
                              (DMIN2-REF17712 ':FLOAT)
                              (DN-REF17713 ':FLOAT)
                              (DNM1-REF17714 ':FLOAT)
                              (DNM2-REF17715 ':FLOAT)
                              (IEEE-REF17716 ':INT32)
                              (EPS-REF17717 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF17704 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF17705 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF17707 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF17708 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF17709 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF17710 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF17711 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF17712 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF17713 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF17714 :FLOAT) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF17715 :FLOAT) DNM2)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF17716 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF17717 :FLOAT) EPS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF17706 Z))
      (%%SLASQ5 I0-REF17704 N0-REF17705 Z-REF17706 PP-REF17707
       TAU-REF17708 SIGMA-REF17709 DMIN-REF17710 DMIN1-REF17711
       DMIN2-REF17712 DN-REF17713 DNM1-REF17714 DNM2-REF17715
       IEEE-REF17716 EPS-REF17717))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPPEQU "cppequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17719 ':INT32)
                              (SCOND-REF17722 ':FLOAT)
                              (AMAX-REF17723 ':FLOAT)
                              (INFO-REF17724 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17719 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF17722 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17723 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17724 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17720 AP)
                                            (S-REF17721 S))
      (%%CPPEQU UPLO N-REF17719 AP-REF17720 S-REF17721 SCOND-REF17722
       AMAX-REF17723 INFO-REF17724))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPTSV "sptsv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17725 ':INT32)
                              (NRHS-REF17726 ':INT32)
                              (LDB-REF17730 ':INT32)
                              (INFO-REF17731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17725 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17726 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17730 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17731 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17727 D)
                                            (E-REF17728 E)
                                            (B-REF17729 B))
      (%%SPTSV N-REF17725 NRHS-REF17726 D-REF17727 E-REF17728
       B-REF17729 LDB-REF17730 INFO-REF17731))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRD_HE2HB "zhetrd_he2hb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRD_HE2HB
    (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD_HE2HB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17733 ':INT32)
                              (KD-REF17734 ':INT32)
                              (LDA-REF17736 ':INT32)
                              (LDAB-REF17738 ':INT32)
                              (LWORK-REF17741 ':INT32)
                              (INFO-REF17742 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF17734 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17736 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17738 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17741 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17742 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17735 A)
                                            (AB-REF17737 AB)
                                            (TAU-REF17739 TAU)
                                            (WORK-REF17740 WORK))
      (%%ZHETRD_HE2HB UPLO N-REF17733 KD-REF17734 A-REF17735
       LDA-REF17736 AB-REF17737 LDAB-REF17738 TAU-REF17739
       WORK-REF17740 LWORK-REF17741 INFO-REF17742))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARZB "clarzb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARZB
    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17747 ':INT32) (N-REF17748 ':INT32)
                              (K-REF17749 ':INT32) (L-REF17750 ':INT32)
                              (LDV-REF17752 ':INT32)
                              (LDT-REF17754 ':INT32)
                              (LDC-REF17756 ':INT32)
                              (LDWORK-REF17758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17747 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17748 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17749 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17750 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17752 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17754 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17756 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17758 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17751 V)
                                            (T-REF17753 T)
                                            (C-REF17755 C)
                                            (WORK-REF17757 WORK))
      (%%CLARZB SIDE TRANS DIRECT STOREV M-REF17747 N-REF17748
       K-REF17749 L-REF17750 V-REF17751 LDV-REF17752 T-REF17753
       LDT-REF17754 C-REF17755 LDC-REF17756 WORK-REF17757
       LDWORK-REF17758))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRS_ROOK "dsytrs_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17760 ':INT32)
                              (NRHS-REF17761 ':INT32)
                              (LDA-REF17763 ':INT32)
                              (LDB-REF17766 ':INT32)
                              (INFO-REF17767 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17760 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17761 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17763 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17766 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17767 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17762 A)
                                            (IPIV-REF17764 IPIV)
                                            (B-REF17765 B))
      (%%DSYTRS_ROOK UPLO N-REF17760 NRHS-REF17761 A-REF17762
       LDA-REF17763 IPIV-REF17764 B-REF17765 LDB-REF17766
       INFO-REF17767))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBTRS "sgbtrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17769 ':INT32)
                              (KL-REF17770 ':INT32)
                              (KU-REF17771 ':INT32)
                              (NRHS-REF17772 ':INT32)
                              (LDAB-REF17774 ':INT32)
                              (LDB-REF17777 ':INT32)
                              (INFO-REF17778 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17769 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17770 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17771 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17772 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17774 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17777 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17778 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17773 AB)
                                            (IPIV-REF17775 IPIV)
                                            (B-REF17776 B))
      (%%SGBTRS TRANS N-REF17769 KL-REF17770 KU-REF17771 NRHS-REF17772
       AB-REF17773 LDAB-REF17774 IPIV-REF17775 B-REF17776 LDB-REF17777
       INFO-REF17778))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYCONVF "csyconvf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONVF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17781 ':INT32)
                              (LDA-REF17783 ':INT32)
                              (INFO-REF17786 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17781 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17783 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17786 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17782 A)
                                            (E-REF17784 E)
                                            (IPIV-REF17785 IPIV))
      (%%CSYCONVF UPLO WAY N-REF17781 A-REF17782 LDA-REF17783
       E-REF17784 IPIV-REF17785 INFO-REF17786))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRTTF "ztrttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17789 ':INT32)
                              (LDA-REF17791 ':INT32)
                              (INFO-REF17793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17789 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17791 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17793 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17790 A)
                                            (ARF-REF17792 ARF))
      (%%ZTRTTF TRANSR UPLO N-REF17789 A-REF17790 LDA-REF17791
       ARF-REF17792 INFO-REF17793))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_GBRPVGRW "cla_gbrpvgrw_")
  ((N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NCOLS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRPVGRW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17794 ':INT32)
                              (KL-REF17795 ':INT32)
                              (KU-REF17796 ':INT32)
                              (NCOLS-REF17797 ':INT32)
                              (LDAB-REF17799 ':INT32)
                              (LDAFB-REF17801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17794 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17795 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17796 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF17797 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17799 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17801 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17798 AB)
                                            (AFB-REF17800 AFB))
      (%%CLA_GBRPVGRW N-REF17794 KL-REF17795 KU-REF17796 NCOLS-REF17797
       AB-REF17798 LDAB-REF17799 AFB-REF17800 LDAFB-REF17801))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASCL "clascl_")
  ((TYPE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (CFROM :FOREIGN-ADDRESS)
   (CTO :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASCL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CFROM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CTO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF17803 ':INT32)
                              (KU-REF17804 ':INT32)
                              (CFROM-REF17805 ':FLOAT)
                              (CTO-REF17806 ':FLOAT)
                              (M-REF17807 ':INT32) (N-REF17808 ':INT32)
                              (LDA-REF17810 ':INT32)
                              (INFO-REF17811 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17803 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17804 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF17805 :FLOAT) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF17806 :FLOAT) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17807 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17810 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17811 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17809 A))
      (%%CLASCL TYPE KL-REF17803 KU-REF17804 CFROM-REF17805
       CTO-REF17806 M-REF17807 N-REF17808 A-REF17809 LDA-REF17810
       INFO-REF17811))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANSB "zlansb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17814 ':INT32) (K-REF17815 ':INT32)
                              (LDAB-REF17817 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17814 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17815 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17817 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17816 AB)
                                            (WORK-REF17818 WORK))
      (%%ZLANSB NORM UPLO N-REF17814 K-REF17815 AB-REF17816
       LDAB-REF17817 WORK-REF17818))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEEQUB "cgeequb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17819 ':INT32) (N-REF17820 ':INT32)
                              (LDA-REF17822 ':INT32)
                              (ROWCND-REF17825 ':FLOAT)
                              (COLCND-REF17826 ':FLOAT)
                              (AMAX-REF17827 ':FLOAT)
                              (INFO-REF17828 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17819 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17820 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17822 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17825 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17826 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17827 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17828 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17821 A)
                                            (R-REF17823 R)
                                            (C-REF17824 C))
      (%%CGEEQUB M-REF17819 N-REF17820 A-REF17821 LDA-REF17822
       R-REF17823 C-REF17824 ROWCND-REF17825 COLCND-REF17826
       AMAX-REF17827 INFO-REF17828))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNBDB5 "cunbdb5_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNBDB5
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF17829 ':INT32)
                              (M2-REF17830 ':INT32)
                              (N-REF17831 ':INT32)
                              (INCX1-REF17833 ':INT32)
                              (INCX2-REF17835 ':INT32)
                              (LDQ1-REF17837 ':INT32)
                              (LDQ2-REF17839 ':INT32)
                              (LWORK-REF17841 ':INT32)
                              (INFO-REF17842 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF17829 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF17830 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17831 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF17833 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF17835 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF17837 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF17839 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17841 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17842 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF17832 X1)
                                            (X2-REF17834 X2)
                                            (Q1-REF17836 Q1)
                                            (Q2-REF17838 Q2)
                                            (WORK-REF17840 WORK))
      (%%CUNBDB5 M1-REF17829 M2-REF17830 N-REF17831 X1-REF17832
       INCX1-REF17833 X2-REF17834 INCX2-REF17835 Q1-REF17836
       LDQ1-REF17837 Q2-REF17838 LDQ2-REF17839 WORK-REF17840
       LWORK-REF17841 INFO-REF17842))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAEV2 "zlaev2_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (RT1 :FOREIGN-ADDRESS) (RT2 :FOREIGN-ADDRESS) (CS1 :FOREIGN-ADDRESS)
   (SN1 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAEV2)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF17843
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B-REF17844
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF17845
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT1-REF17846 ':DOUBLE)
                              (RT2-REF17847 ':DOUBLE)
                              (CS1-REF17848 ':DOUBLE)
                              (SN1-REF17849
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              A-REF17843
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              B-REF17844
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              C-REF17845
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART C)))
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF17846 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF17847 :DOUBLE) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF17848 :DOUBLE) CS1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF17849
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAEV2 A-REF17843 B-REF17844 C-REF17845 RT1-REF17846
       RT2-REF17847 CS1-REF17848 SN1-REF17849))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASY2 "dlasy2_")
  ((LTRANL :FOREIGN-ADDRESS) (LTRANR :FOREIGN-ADDRESS)
   (ISGN :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS)
   (TL :FOREIGN-ADDRESS) (LDTL :FOREIGN-ADDRESS) (TR :FOREIGN-ADDRESS)
   (LDTR :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (XNORM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASY2
    (LTRANL LTRANR ISGN N1 N2 TL LDTL TR LDTR B LDB SCALE X LDX XNORM
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASY2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF17850 ':INT32)
                              (LTRANR-REF17851 ':INT32)
                              (ISGN-REF17852 ':INT32)
                              (N1-REF17853 ':INT32)
                              (N2-REF17854 ':INT32)
                              (LDTL-REF17856 ':INT32)
                              (LDTR-REF17858 ':INT32)
                              (LDB-REF17860 ':INT32)
                              (SCALE-REF17861 ':DOUBLE)
                              (LDX-REF17863 ':INT32)
                              (XNORM-REF17864 ':DOUBLE)
                              (INFO-REF17865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF17850 :INT32) LTRANL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF17851 :INT32) LTRANR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF17852 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF17853 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF17854 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF17856 :INT32) LDTL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF17858 :INT32) LDTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17860 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17861 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17863 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF17864 :DOUBLE) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF17855 TL)
                                            (TR-REF17857 TR)
                                            (B-REF17859 B)
                                            (X-REF17862 X))
      (%%DLASY2 LTRANL-REF17850 LTRANR-REF17851 ISGN-REF17852
       N1-REF17853 N2-REF17854 TL-REF17855 LDTL-REF17856 TR-REF17857
       LDTR-REF17858 B-REF17859 LDB-REF17860 SCALE-REF17861 X-REF17862
       LDX-REF17863 XNORM-REF17864 INFO-REF17865))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAHEF "zlahef_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAHEF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17867 ':INT32)
                              (NB-REF17868 ':INT32)
                              (KB-REF17869 ':INT32)
                              (LDA-REF17871 ':INT32)
                              (LDW-REF17874 ':INT32)
                              (INFO-REF17875 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17868 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF17869 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17871 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF17874 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17875 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17870 A)
                                            (IPIV-REF17872 IPIV)
                                            (W-REF17873 W))
      (%%ZLAHEF UPLO N-REF17867 NB-REF17868 KB-REF17869 A-REF17870
       LDA-REF17871 IPIV-REF17872 W-REF17873 LDW-REF17874
       INFO-REF17875))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPGST "dspgst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF17876 ':INT32)
                              (N-REF17878 ':INT32)
                              (INFO-REF17881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF17876 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17881 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17879 AP)
                                            (BP-REF17880 BP))
      (%%DSPGST ITYPE-REF17876 UPLO N-REF17878 AP-REF17879 BP-REF17880
       INFO-REF17881))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANHS "clanhs_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17883 ':INT32)
                              (LDA-REF17885 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17883 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17885 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17884 A)
                                            (WORK-REF17886 WORK))
      (%%CLANHS NORM N-REF17883 A-REF17884 LDA-REF17885
       WORK-REF17886))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGETRS "zgetrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17888 ':INT32)
                              (NRHS-REF17889 ':INT32)
                              (LDA-REF17891 ':INT32)
                              (LDB-REF17894 ':INT32)
                              (INFO-REF17895 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17888 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17889 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17891 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17894 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17895 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17890 A)
                                            (IPIV-REF17892 IPIV)
                                            (B-REF17893 B))
      (%%ZGETRS TRANS N-REF17888 NRHS-REF17889 A-REF17890 LDA-REF17891
       IPIV-REF17892 B-REF17893 LDB-REF17894 INFO-REF17895))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED5 "dlaed5_")
  ((I :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (DELTA :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (DLAM :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED5 (I D Z DELTA RHO DLAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DELTA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF17896 ':INT32)
                              (RHO-REF17900 ':DOUBLE)
                              (DLAM-REF17901 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF17896 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF17900 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF17901 :DOUBLE) DLAM)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17897 D)
                                            (Z-REF17898 Z)
                                            (DELTA-REF17899 DELTA))
      (%%DLAED5 I-REF17896 D-REF17897 Z-REF17898 DELTA-REF17899
       RHO-REF17900 DLAM-REF17901))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOSVX "zposvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOSVX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND FERR BERR
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17904 ':INT32)
                              (NRHS-REF17905 ':INT32)
                              (LDA-REF17907 ':INT32)
                              (LDAF-REF17909 ':INT32)
                              (LDB-REF17913 ':INT32)
                              (LDX-REF17915 ':INT32)
                              (RCOND-REF17916 ':DOUBLE)
                              (INFO-REF17921 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17904 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17905 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17907 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF17909 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17913 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17915 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17916 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17921 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17906 A)
                                            (AF-REF17908 AF)
                                            (S-REF17911 S)
                                            (B-REF17912 B)
                                            (X-REF17914 X)
                                            (FERR-REF17917 FERR)
                                            (BERR-REF17918 BERR)
                                            (WORK-REF17919 WORK)
                                            (RWORK-REF17920 RWORK))
      (%%ZPOSVX FACT UPLO N-REF17904 NRHS-REF17905 A-REF17906
       LDA-REF17907 AF-REF17908 LDAF-REF17909 EQUED S-REF17911
       B-REF17912 LDB-REF17913 X-REF17914 LDX-REF17915 RCOND-REF17916
       FERR-REF17917 BERR-REF17918 WORK-REF17919 RWORK-REF17920
       INFO-REF17921))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGES3 "sgges3_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (VSL :FOREIGN-ADDRESS) (LDVSL :FOREIGN-ADDRESS)
   (VSR :FOREIGN-ADDRESS) (LDVSR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGES3
    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI BETA
     VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGES3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF17925 ':INT32)
                              (N-REF17926 ':INT32)
                              (LDA-REF17928 ':INT32)
                              (LDB-REF17930 ':INT32)
                              (SDIM-REF17931 ':INT32)
                              (LDVSL-REF17936 ':INT32)
                              (LDVSR-REF17938 ':INT32)
                              (LWORK-REF17940 ':INT32)
                              (INFO-REF17942 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF17925 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17928 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17930 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17931 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF17936 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF17938 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17940 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17942 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17927 A)
                                            (B-REF17929 B)
                                            (ALPHAR-REF17932 ALPHAR)
                                            (ALPHAI-REF17933 ALPHAI)
                                            (BETA-REF17934 BETA)
                                            (VSL-REF17935 VSL)
                                            (VSR-REF17937 VSR)
                                            (WORK-REF17939 WORK)
                                            (BWORK-REF17941 BWORK))
      (%%SGGES3 JOBVSL JOBVSR SORT SELCTG-REF17925 N-REF17926
       A-REF17927 LDA-REF17928 B-REF17929 LDB-REF17930 SDIM-REF17931
       ALPHAR-REF17932 ALPHAI-REF17933 BETA-REF17934 VSL-REF17935
       LDVSL-REF17936 VSR-REF17937 LDVSR-REF17938 WORK-REF17939
       LWORK-REF17940 BWORK-REF17941 INFO-REF17942))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGQL "cungql_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGQL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17943 ':INT32) (N-REF17944 ':INT32)
                              (K-REF17945 ':INT32)
                              (LDA-REF17947 ':INT32)
                              (LWORK-REF17950 ':INT32)
                              (INFO-REF17951 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17943 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17945 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17947 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17950 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17951 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17946 A)
                                            (TAU-REF17948 TAU)
                                            (WORK-REF17949 WORK))
      (%%CUNGQL M-REF17943 N-REF17944 K-REF17945 A-REF17946
       LDA-REF17947 TAU-REF17948 WORK-REF17949 LWORK-REF17950
       INFO-REF17951))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASQ1 "slasq1_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASQ1 (N D E WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17952 ':INT32)
                              (INFO-REF17956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17952 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17956 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17953 D)
                                            (E-REF17954 E)
                                            (WORK-REF17955 WORK))
      (%%SLASQ1 N-REF17952 D-REF17953 E-REF17954 WORK-REF17955
       INFO-REF17956))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPCON "dtpcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPCON (NORM UPLO DIAG N AP RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17960 ':INT32)
                              (RCOND-REF17962 ':DOUBLE)
                              (INFO-REF17965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17960 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17962 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17965 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17961 AP)
                                            (WORK-REF17963 WORK)
                                            (IWORK-REF17964 IWORK))
      (%%DTPCON NORM UPLO DIAG N-REF17960 AP-REF17961 RCOND-REF17962
       WORK-REF17963 IWORK-REF17964 INFO-REF17965))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAGTM "dlagtm_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAGTM
    (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17967 ':INT32)
                              (NRHS-REF17968 ':INT32)
                              (ALPHA-REF17969 ':DOUBLE)
                              (LDX-REF17974 ':INT32)
                              (BETA-REF17975 ':DOUBLE)
                              (LDB-REF17977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17967 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17968 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF17969 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17974 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF17975 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17977 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF17970 DL)
                                            (D-REF17971 D)
                                            (DU-REF17972 DU)
                                            (X-REF17973 X)
                                            (B-REF17976 B))
      (%%DLAGTM TRANS N-REF17967 NRHS-REF17968 ALPHA-REF17969
       DL-REF17970 D-REF17971 DU-REF17972 X-REF17973 LDX-REF17974
       BETA-REF17975 B-REF17976 LDB-REF17977))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQSB "slaqsb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17979 ':INT32)
                              (KD-REF17980 ':INT32)
                              (LDAB-REF17982 ':INT32)
                              (SCOND-REF17984 ':FLOAT)
                              (AMAX-REF17985 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF17980 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17982 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF17984 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17985 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17981 AB)
                                            (S-REF17983 S))
      (%%SLAQSB UPLO N-REF17979 KD-REF17980 AB-REF17981 LDAB-REF17982
       S-REF17983 SCOND-REF17984 AMAX-REF17985 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARFG "slarfg_")
  ((N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17987 ':INT32)
                              (ALPHA-REF17988 ':FLOAT)
                              (INCX-REF17990 ':INT32)
                              (TAU-REF17991 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17987 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF17988 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF17990 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF17991 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF17989 X))
      (%%SLARFG N-REF17987 ALPHA-REF17988 X-REF17989 INCX-REF17990
       TAU-REF17991))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLATRZ "slatrz_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17992 ':INT32) (N-REF17993 ':INT32)
                              (L-REF17994 ':INT32)
                              (LDA-REF17996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17992 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17993 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17994 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17996 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17995 A)
                                            (TAU-REF17997 TAU)
                                            (WORK-REF17998 WORK))
      (%%SLATRZ M-REF17992 N-REF17993 L-REF17994 A-REF17995
       LDA-REF17996 TAU-REF17997 WORK-REF17998))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLATBS "slatbs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLATBS
    (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATBS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18003 ':INT32)
                              (KD-REF18004 ':INT32)
                              (LDAB-REF18006 ':INT32)
                              (SCALE-REF18008 ':FLOAT)
                              (INFO-REF18010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18003 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18004 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18006 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18008 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18010 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18005 AB)
                                            (X-REF18007 X)
                                            (CNORM-REF18009 CNORM))
      (%%SLATBS UPLO TRANS DIAG NORMIN N-REF18003 KD-REF18004
       AB-REF18005 LDAB-REF18006 X-REF18007 SCALE-REF18008
       CNORM-REF18009 INFO-REF18010))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_GERCOND_X "cla_gercond_x_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GERCOND_X
    (TRANS N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18012 ':INT32)
                              (LDA-REF18014 ':INT32)
                              (LDAF-REF18016 ':INT32)
                              (INFO-REF18019 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18014 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18016 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18019 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18013 A)
                                            (AF-REF18015 AF)
                                            (IPIV-REF18017 IPIV)
                                            (X-REF18018 X)
                                            (WORK-REF18020 WORK)
                                            (RWORK-REF18021 RWORK))
      (%%CLA_GERCOND_X TRANS N-REF18012 A-REF18013 LDA-REF18014
       AF-REF18015 LDAF-REF18016 IPIV-REF18017 X-REF18018 INFO-REF18019
       WORK-REF18020 RWORK-REF18021))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTGSYL "ctgsyl_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (IJOB :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (LDD :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (LDE :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTGSYL
    (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE DIF WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF18023 ':INT32)
                              (M-REF18024 ':INT32) (N-REF18025 ':INT32)
                              (LDA-REF18027 ':INT32)
                              (LDB-REF18029 ':INT32)
                              (LDC-REF18031 ':INT32)
                              (LDD-REF18033 ':INT32)
                              (LDE-REF18035 ':INT32)
                              (LDF-REF18037 ':INT32)
                              (SCALE-REF18038 ':FLOAT)
                              (DIF-REF18039 ':FLOAT)
                              (LWORK-REF18041 ':INT32)
                              (INFO-REF18043 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF18023 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18024 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18025 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18027 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18029 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18031 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF18033 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF18035 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF18037 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18038 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF18039 :FLOAT) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18041 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18043 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18026 A)
                                            (B-REF18028 B)
                                            (C-REF18030 C)
                                            (D-REF18032 D)
                                            (E-REF18034 E)
                                            (F-REF18036 F)
                                            (WORK-REF18040 WORK)
                                            (IWORK-REF18042 IWORK))
      (%%CTGSYL TRANS IJOB-REF18023 M-REF18024 N-REF18025 A-REF18026
       LDA-REF18027 B-REF18028 LDB-REF18029 C-REF18030 LDC-REF18031
       D-REF18032 LDD-REF18033 E-REF18034 LDE-REF18035 F-REF18036
       LDF-REF18037 SCALE-REF18038 DIF-REF18039 WORK-REF18040
       LWORK-REF18041 IWORK-REF18042 INFO-REF18043))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASYF_RK "dlasyf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18045 ':INT32)
                              (NB-REF18046 ':INT32)
                              (KB-REF18047 ':INT32)
                              (LDA-REF18049 ':INT32)
                              (LDW-REF18053 ':INT32)
                              (INFO-REF18054 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18045 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18046 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18047 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18049 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF18053 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18054 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18048 A)
                                            (E-REF18050 E)
                                            (IPIV-REF18051 IPIV)
                                            (W-REF18052 W))
      (%%DLASYF_RK UPLO N-REF18045 NB-REF18046 KB-REF18047 A-REF18048
       LDA-REF18049 E-REF18050 IPIV-REF18051 W-REF18052 LDW-REF18053
       INFO-REF18054))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASDQ "slasdq_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SQRE :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NCVT :FOREIGN-ADDRESS)
   (NRU :FOREIGN-ADDRESS) (NCC :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASDQ
    (UPLO SQRE N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF18056 ':INT32)
                              (N-REF18057 ':INT32)
                              (NCVT-REF18058 ':INT32)
                              (NRU-REF18059 ':INT32)
                              (NCC-REF18060 ':INT32)
                              (LDVT-REF18064 ':INT32)
                              (LDU-REF18066 ':INT32)
                              (LDC-REF18068 ':INT32)
                              (INFO-REF18070 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF18056 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18057 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF18058 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF18059 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF18060 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18064 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18066 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18068 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18070 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF18061 D)
                                            (E-REF18062 E)
                                            (VT-REF18063 VT)
                                            (U-REF18065 U)
                                            (C-REF18067 C)
                                            (WORK-REF18069 WORK))
      (%%SLASDQ UPLO SQRE-REF18056 N-REF18057 NCVT-REF18058
       NRU-REF18059 NCC-REF18060 D-REF18061 E-REF18062 VT-REF18063
       LDVT-REF18064 U-REF18065 LDU-REF18066 C-REF18067 LDC-REF18068
       WORK-REF18069 INFO-REF18070))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTF2_RK "zsytf2_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18072 ':INT32)
                              (LDA-REF18074 ':INT32)
                              (INFO-REF18077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18072 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18074 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18077 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18073 A)
                                            (E-REF18075 E)
                                            (IPIV-REF18076 IPIV))
      (%%ZSYTF2_RK UPLO N-REF18072 A-REF18073 LDA-REF18074 E-REF18075
       IPIV-REF18076 INFO-REF18077))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAPMR "zlapmr_")
  ((FORWRD :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPMR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF18078 ':INT32)
                              (M-REF18079 ':INT32) (N-REF18080 ':INT32)
                              (LDX-REF18082 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF18078 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18079 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18080 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18082 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF18081 X)
                                            (K-REF18083 K))
      (%%ZLAPMR FORWRD-REF18078 M-REF18079 N-REF18080 X-REF18081
       LDX-REF18082 K-REF18083))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESDD "dgesdd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESDD
    (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESDD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18085 ':INT32) (N-REF18086 ':INT32)
                              (LDA-REF18088 ':INT32)
                              (LDU-REF18091 ':INT32)
                              (LDVT-REF18093 ':INT32)
                              (LWORK-REF18095 ':INT32)
                              (INFO-REF18097 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18085 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18088 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18091 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18093 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18095 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18097 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18087 A)
                                            (S-REF18089 S)
                                            (U-REF18090 U)
                                            (VT-REF18092 VT)
                                            (WORK-REF18094 WORK)
                                            (IWORK-REF18096 IWORK))
      (%%DGESDD JOBZ M-REF18085 N-REF18086 A-REF18087 LDA-REF18088
       S-REF18089 U-REF18090 LDU-REF18091 VT-REF18092 LDVT-REF18093
       WORK-REF18094 LWORK-REF18095 IWORK-REF18096 INFO-REF18097))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANST "slanst_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANST (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANST)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18099 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF18100 D)
                                            (E-REF18101 E))
      (%%SLANST NORM N-REF18099 D-REF18100 E-REF18101))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPFTRI "spftri_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18104 ':INT32)
                              (INFO-REF18106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18104 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18105 A))
      (%%SPFTRI TRANSR UPLO N-REF18104 A-REF18105 INFO-REF18106))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYGVD "dsygvd_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYGVD
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGVD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF18107 ':INT32)
                              (N-REF18110 ':INT32)
                              (LDA-REF18112 ':INT32)
                              (LDB-REF18114 ':INT32)
                              (LWORK-REF18117 ':INT32)
                              (LIWORK-REF18119 ':INT32)
                              (INFO-REF18120 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF18107 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18112 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18114 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18117 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18119 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18120 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18111 A)
                                            (B-REF18113 B)
                                            (W-REF18115 W)
                                            (WORK-REF18116 WORK)
                                            (IWORK-REF18118 IWORK))
      (%%DSYGVD ITYPE-REF18107 JOBZ UPLO N-REF18110 A-REF18111
       LDA-REF18112 B-REF18113 LDB-REF18114 W-REF18115 WORK-REF18116
       LWORK-REF18117 IWORK-REF18118 LIWORK-REF18119 INFO-REF18120))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBSTF "spbstf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18122 ':INT32)
                              (KD-REF18123 ':INT32)
                              (LDAB-REF18125 ':INT32)
                              (INFO-REF18126 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18122 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18123 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18125 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18126 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18124 AB))
      (%%SPBSTF UPLO N-REF18122 KD-REF18123 AB-REF18124 LDAB-REF18125
       INFO-REF18126))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLATBS "dlatbs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLATBS
    (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATBS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18131 ':INT32)
                              (KD-REF18132 ':INT32)
                              (LDAB-REF18134 ':INT32)
                              (SCALE-REF18136 ':DOUBLE)
                              (INFO-REF18138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18132 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18134 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18136 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18138 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18133 AB)
                                            (X-REF18135 X)
                                            (CNORM-REF18137 CNORM))
      (%%DLATBS UPLO TRANS DIAG NORMIN N-REF18131 KD-REF18132
       AB-REF18133 LDAB-REF18134 X-REF18135 SCALE-REF18136
       CNORM-REF18137 INFO-REF18138))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRTRI "ztrtri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18141 ':INT32)
                              (LDA-REF18143 ':INT32)
                              (INFO-REF18144 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18141 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18143 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18144 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18142 A))
      (%%ZTRTRI UPLO DIAG N-REF18141 A-REF18142 LDA-REF18143
       INFO-REF18144))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHBGVD "zhbgvd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHBGVD
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK RWORK LRWORK
     IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18147 ':INT32)
                              (KA-REF18148 ':INT32)
                              (KB-REF18149 ':INT32)
                              (LDAB-REF18151 ':INT32)
                              (LDBB-REF18153 ':INT32)
                              (LDZ-REF18156 ':INT32)
                              (LWORK-REF18158 ':INT32)
                              (LRWORK-REF18160 ':INT32)
                              (LIWORK-REF18162 ':INT32)
                              (INFO-REF18163 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18148 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18149 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18151 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18153 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18156 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18158 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18160 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18162 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18163 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18150 AB)
                                            (BB-REF18152 BB)
                                            (W-REF18154 W)
                                            (Z-REF18155 Z)
                                            (WORK-REF18157 WORK)
                                            (RWORK-REF18159 RWORK)
                                            (IWORK-REF18161 IWORK))
      (%%ZHBGVD JOBZ UPLO N-REF18147 KA-REF18148 KB-REF18149
       AB-REF18150 LDAB-REF18151 BB-REF18152 LDBB-REF18153 W-REF18154
       Z-REF18155 LDZ-REF18156 WORK-REF18157 LWORK-REF18158
       RWORK-REF18159 LRWORK-REF18160 IWORK-REF18161 LIWORK-REF18162
       INFO-REF18163))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQPS "zlaqps_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (OFFSET :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (VN1 :FOREIGN-ADDRESS) (VN2 :FOREIGN-ADDRESS)
   (AUXV :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQPS
    (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQPS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AUXV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18164 ':INT32) (N-REF18165 ':INT32)
                              (OFFSET-REF18166 ':INT32)
                              (NB-REF18167 ':INT32)
                              (KB-REF18168 ':INT32)
                              (LDA-REF18170 ':INT32)
                              (LDF-REF18177 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18164 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18165 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF18166 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18167 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18168 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18170 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF18177 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18169 A)
                                            (JPVT-REF18171 JPVT)
                                            (TAU-REF18172 TAU)
                                            (VN1-REF18173 VN1)
                                            (VN2-REF18174 VN2)
                                            (AUXV-REF18175 AUXV)
                                            (F-REF18176 F))
      (%%ZLAQPS M-REF18164 N-REF18165 OFFSET-REF18166 NB-REF18167
       KB-REF18168 A-REF18169 LDA-REF18170 JPVT-REF18171 TAU-REF18172
       VN1-REF18173 VN2-REF18174 AUXV-REF18175 F-REF18176
       LDF-REF18177))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQR3 "claqr3_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (SH :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS) (LDWV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQR3
    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V LDV NH
     T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    SH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF18178 ':INT32)
                              (WANTZ-REF18179 ':INT32)
                              (N-REF18180 ':INT32)
                              (KTOP-REF18181 ':INT32)
                              (KBOT-REF18182 ':INT32)
                              (NW-REF18183 ':INT32)
                              (LDH-REF18185 ':INT32)
                              (ILOZ-REF18186 ':INT32)
                              (IHIZ-REF18187 ':INT32)
                              (LDZ-REF18189 ':INT32)
                              (NS-REF18190 ':INT32)
                              (ND-REF18191 ':INT32)
                              (LDV-REF18194 ':INT32)
                              (NH-REF18195 ':INT32)
                              (LDT-REF18197 ':INT32)
                              (NV-REF18198 ':INT32)
                              (LDWV-REF18200 ':INT32)
                              (LWORK-REF18202 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF18178 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF18179 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18180 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF18181 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF18182 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF18183 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF18185 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF18186 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF18187 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18189 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF18190 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF18191 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18194 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF18195 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18197 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF18198 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF18200 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18202 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF18184 H)
                                            (Z-REF18188 Z)
                                            (SH-REF18192 SH)
                                            (V-REF18193 V)
                                            (T-REF18196 T)
                                            (WV-REF18199 WV)
                                            (WORK-REF18201 WORK))
      (%%CLAQR3 WANTT-REF18178 WANTZ-REF18179 N-REF18180 KTOP-REF18181
       KBOT-REF18182 NW-REF18183 H-REF18184 LDH-REF18185 ILOZ-REF18186
       IHIZ-REF18187 Z-REF18188 LDZ-REF18189 NS-REF18190 ND-REF18191
       SH-REF18192 V-REF18193 LDV-REF18194 NH-REF18195 T-REF18196
       LDT-REF18197 NV-REF18198 WV-REF18199 LDWV-REF18200 WORK-REF18201
       LWORK-REF18202))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBSV "dgbsv_")
  ((N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18203 ':INT32)
                              (KL-REF18204 ':INT32)
                              (KU-REF18205 ':INT32)
                              (NRHS-REF18206 ':INT32)
                              (LDAB-REF18208 ':INT32)
                              (LDB-REF18211 ':INT32)
                              (INFO-REF18212 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18203 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF18204 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF18205 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18206 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18208 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18211 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18212 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18207 AB)
                                            (IPIV-REF18209 IPIV)
                                            (B-REF18210 B))
      (%%DGBSV N-REF18203 KL-REF18204 KU-REF18205 NRHS-REF18206
       AB-REF18207 LDAB-REF18208 IPIV-REF18209 B-REF18210 LDB-REF18211
       INFO-REF18212))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGRQ "cungrq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGRQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18213 ':INT32) (N-REF18214 ':INT32)
                              (K-REF18215 ':INT32)
                              (LDA-REF18217 ':INT32)
                              (LWORK-REF18220 ':INT32)
                              (INFO-REF18221 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18213 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18214 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18215 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18217 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18220 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18221 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18216 A)
                                            (TAU-REF18218 TAU)
                                            (WORK-REF18219 WORK))
      (%%CUNGRQ M-REF18213 N-REF18214 K-REF18215 A-REF18216
       LDA-REF18217 TAU-REF18218 WORK-REF18219 LWORK-REF18220
       INFO-REF18221))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHBEVD_2STAGE "zhbevd_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (LRWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHBEVD_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18224 ':INT32)
                              (KD-REF18225 ':INT32)
                              (LDAB-REF18227 ':INT32)
                              (LDZ-REF18230 ':INT32)
                              (LWORK-REF18232 ':INT32)
                              (LRWORK-REF18234 ':INT32)
                              (LIWORK-REF18236 ':INT32)
                              (INFO-REF18237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18224 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18225 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18227 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18230 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18232 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18234 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18236 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18226 AB)
                                            (W-REF18228 W)
                                            (Z-REF18229 Z)
                                            (WORK-REF18231 WORK)
                                            (RWORK-REF18233 RWORK)
                                            (IWORK-REF18235 IWORK))
      (%%ZHBEVD_2STAGE JOBZ UPLO N-REF18224 KD-REF18225 AB-REF18226
       LDAB-REF18227 W-REF18228 Z-REF18229 LDZ-REF18230 WORK-REF18231
       LWORK-REF18232 RWORK-REF18233 LRWORK-REF18234 IWORK-REF18235
       LIWORK-REF18236 INFO-REF18237))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBTRF "zgbtrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18238 ':INT32) (N-REF18239 ':INT32)
                              (KL-REF18240 ':INT32)
                              (KU-REF18241 ':INT32)
                              (LDAB-REF18243 ':INT32)
                              (INFO-REF18245 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18238 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF18240 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF18241 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18243 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18245 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18242 AB)
                                            (IPIV-REF18244 IPIV))
      (%%ZGBTRF M-REF18238 N-REF18239 KL-REF18240 KU-REF18241
       AB-REF18242 LDAB-REF18243 IPIV-REF18244 INFO-REF18245))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQLF "dgeqlf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQLF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18246 ':INT32) (N-REF18247 ':INT32)
                              (LDA-REF18249 ':INT32)
                              (LWORK-REF18252 ':INT32)
                              (INFO-REF18253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18246 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18247 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18249 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18252 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18253 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18248 A)
                                            (TAU-REF18250 TAU)
                                            (WORK-REF18251 WORK))
      (%%DGEQLF M-REF18246 N-REF18247 A-REF18248 LDA-REF18249
       TAU-REF18250 WORK-REF18251 LWORK-REF18252 INFO-REF18253))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAR1V "clar1v_")
  ((N :FOREIGN-ADDRESS) (B1 :FOREIGN-ADDRESS) (BN :FOREIGN-ADDRESS)
   (LAMBDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (LD :FOREIGN-ADDRESS) (LLD :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (GAPTOL :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (WANTNC :FOREIGN-ADDRESS)
   (NEGCNT :FOREIGN-ADDRESS) (ZTZ :FOREIGN-ADDRESS)
   (MINGMA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (NRMINV :FOREIGN-ADDRESS)
   (RESID :FOREIGN-ADDRESS) (RQCORR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAR1V
    (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ MINGMA
     R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAR1V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LLD)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAPTOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZTZ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINGMA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT NRMINV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RESID)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RQCORR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18254 ':INT32)
                              (B1-REF18255 ':INT32)
                              (BN-REF18256 ':INT32)
                              (LAMBDA-REF18257 ':FLOAT)
                              (PIVMIN-REF18262 ':FLOAT)
                              (GAPTOL-REF18263 ':FLOAT)
                              (WANTNC-REF18265 ':INT32)
                              (NEGCNT-REF18266 ':INT32)
                              (ZTZ-REF18267 ':FLOAT)
                              (MINGMA-REF18268 ':FLOAT)
                              (R-REF18269 ':INT32)
                              (NRMINV-REF18271 ':FLOAT)
                              (RESID-REF18272 ':FLOAT)
                              (RQCORR-REF18273 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18254 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF18255 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF18256 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF18257 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF18262 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF18263 :FLOAT) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF18265 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF18266 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF18267 :FLOAT) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF18268 :FLOAT) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF18269 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF18271 :FLOAT) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF18272 :FLOAT) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF18273 :FLOAT) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF18258 D)
                                            (L-REF18259 L)
                                            (LD-REF18260 LD)
                                            (LLD-REF18261 LLD)
                                            (Z-REF18264 Z)
                                            (ISUPPZ-REF18270 ISUPPZ)
                                            (WORK-REF18274 WORK))
      (%%CLAR1V N-REF18254 B1-REF18255 BN-REF18256 LAMBDA-REF18257
       D-REF18258 L-REF18259 LD-REF18260 LLD-REF18261 PIVMIN-REF18262
       GAPTOL-REF18263 Z-REF18264 WANTNC-REF18265 NEGCNT-REF18266
       ZTZ-REF18267 MINGMA-REF18268 R-REF18269 ISUPPZ-REF18270
       NRMINV-REF18271 RESID-REF18272 RQCORR-REF18273 WORK-REF18274))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBTF2 "zpbtf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18276 ':INT32)
                              (KD-REF18277 ':INT32)
                              (LDAB-REF18279 ':INT32)
                              (INFO-REF18280 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18277 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18279 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18280 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18278 AB))
      (%%ZPBTF2 UPLO N-REF18276 KD-REF18277 AB-REF18278 LDAB-REF18279
       INFO-REF18280))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHESVXX "zhesvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESVXX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18283 ':INT32)
                              (NRHS-REF18284 ':INT32)
                              (LDA-REF18286 ':INT32)
                              (LDAF-REF18288 ':INT32)
                              (LDB-REF18293 ':INT32)
                              (LDX-REF18295 ':INT32)
                              (RCOND-REF18296 ':DOUBLE)
                              (RPVGRW-REF18297 ':DOUBLE)
                              (N_ERR_BNDS-REF18299 ':INT32)
                              (NPARAMS-REF18302 ':INT32)
                              (INFO-REF18306 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18284 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18286 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18288 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18293 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18295 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18296 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF18297 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18299 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18302 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18306 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18285 A)
                                            (AF-REF18287 AF)
                                            (IPIV-REF18289 IPIV)
                                            (S-REF18291 S)
                                            (B-REF18292 B)
                                            (X-REF18294 X)
                                            (BERR-REF18298 BERR)
                                            (ERR_BNDS_NORM-REF18300
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF18301
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF18303 PARAMS)
                                            (WORK-REF18304 WORK)
                                            (RWORK-REF18305 RWORK))
      (%%ZHESVXX FACT UPLO N-REF18283 NRHS-REF18284 A-REF18285
       LDA-REF18286 AF-REF18287 LDAF-REF18288 IPIV-REF18289 EQUED
       S-REF18291 B-REF18292 LDB-REF18293 X-REF18294 LDX-REF18295
       RCOND-REF18296 RPVGRW-REF18297 BERR-REF18298 N_ERR_BNDS-REF18299
       ERR_BNDS_NORM-REF18300 ERR_BNDS_COMP-REF18301 NPARAMS-REF18302
       PARAMS-REF18303 WORK-REF18304 RWORK-REF18305 INFO-REF18306))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPOTRF "dpotrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18308 ':INT32)
                              (LDA-REF18310 ':INT32)
                              (INFO-REF18311 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18308 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18310 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18311 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18309 A))
      (%%DPOTRF UPLO N-REF18308 A-REF18309 LDA-REF18310
       INFO-REF18311))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELQF "cgelqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18312 ':INT32) (N-REF18313 ':INT32)
                              (LDA-REF18315 ':INT32)
                              (LWORK-REF18318 ':INT32)
                              (INFO-REF18319 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18312 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18313 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18315 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18318 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18319 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18314 A)
                                            (TAU-REF18316 TAU)
                                            (WORK-REF18317 WORK))
      (%%CGELQF M-REF18312 N-REF18313 A-REF18314 LDA-REF18315
       TAU-REF18316 WORK-REF18317 LWORK-REF18318 INFO-REF18319))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARGV "dlargv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18320 ':INT32)
                              (INCX-REF18322 ':INT32)
                              (INCY-REF18324 ':INT32)
                              (INCC-REF18326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18320 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF18322 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF18324 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF18326 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF18321 X)
                                            (Y-REF18323 Y)
                                            (C-REF18325 C))
      (%%DLARGV N-REF18320 X-REF18321 INCX-REF18322 Y-REF18323
       INCY-REF18324 C-REF18325 INCC-REF18326))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMRQ "zunmrq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMRQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMRQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18329 ':INT32) (N-REF18330 ':INT32)
                              (K-REF18331 ':INT32)
                              (LDA-REF18333 ':INT32)
                              (LDC-REF18336 ':INT32)
                              (LWORK-REF18338 ':INT32)
                              (INFO-REF18339 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18329 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18330 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18331 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18333 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18336 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18338 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18339 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18332 A)
                                            (TAU-REF18334 TAU)
                                            (C-REF18335 C)
                                            (WORK-REF18337 WORK))
      (%%ZUNMRQ SIDE TRANS M-REF18329 N-REF18330 K-REF18331 A-REF18332
       LDA-REF18333 TAU-REF18334 C-REF18335 LDC-REF18336 WORK-REF18337
       LWORK-REF18338 INFO-REF18339))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAGTS "dlagts_")
  ((JOB :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (IN :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAGTS (JOB N A B C D IN Y TOL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF18340 ':INT32)
                              (N-REF18341 ':INT32)
                              (TOL-REF18348 ':DOUBLE)
                              (INFO-REF18349 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF18340 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18341 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18348 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18349 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18342 A)
                                            (B-REF18343 B)
                                            (C-REF18344 C)
                                            (D-REF18345 D)
                                            (IN-REF18346 IN)
                                            (Y-REF18347 Y))
      (%%DLAGTS JOB-REF18340 N-REF18341 A-REF18342 B-REF18343
       C-REF18344 D-REF18345 IN-REF18346 Y-REF18347 TOL-REF18348
       INFO-REF18349))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEMLQT "dgemlqt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEMLQT
    (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMLQT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18352 ':INT32) (N-REF18353 ':INT32)
                              (K-REF18354 ':INT32)
                              (MB-REF18355 ':INT32)
                              (LDV-REF18357 ':INT32)
                              (LDT-REF18359 ':INT32)
                              (LDC-REF18361 ':INT32)
                              (INFO-REF18363 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18352 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18354 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF18355 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18357 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18359 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18361 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18363 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18356 V)
                                            (T-REF18358 T)
                                            (C-REF18360 C)
                                            (WORK-REF18362 WORK))
      (%%DGEMLQT SIDE TRANS M-REF18352 N-REF18353 K-REF18354
       MB-REF18355 V-REF18356 LDV-REF18357 T-REF18358 LDT-REF18359
       C-REF18360 LDC-REF18361 WORK-REF18362 INFO-REF18363))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYRFSX "ssyrfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYRFSX
    (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18366 ':INT32)
                              (NRHS-REF18367 ':INT32)
                              (LDA-REF18369 ':INT32)
                              (LDAF-REF18371 ':INT32)
                              (LDB-REF18375 ':INT32)
                              (LDX-REF18377 ':INT32)
                              (RCOND-REF18378 ':FLOAT)
                              (N_ERR_BNDS-REF18380 ':INT32)
                              (NPARAMS-REF18383 ':INT32)
                              (INFO-REF18387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18366 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18367 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18369 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18371 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18375 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18377 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18378 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18380 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18383 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18387 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18368 A)
                                            (AF-REF18370 AF)
                                            (IPIV-REF18372 IPIV)
                                            (S-REF18373 S)
                                            (B-REF18374 B)
                                            (X-REF18376 X)
                                            (BERR-REF18379 BERR)
                                            (ERR_BNDS_NORM-REF18381
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF18382
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF18384 PARAMS)
                                            (WORK-REF18385 WORK)
                                            (IWORK-REF18386 IWORK))
      (%%SSYRFSX UPLO EQUED N-REF18366 NRHS-REF18367 A-REF18368
       LDA-REF18369 AF-REF18370 LDAF-REF18371 IPIV-REF18372 S-REF18373
       B-REF18374 LDB-REF18375 X-REF18376 LDX-REF18377 RCOND-REF18378
       BERR-REF18379 N_ERR_BNDS-REF18380 ERR_BNDS_NORM-REF18381
       ERR_BNDS_COMP-REF18382 NPARAMS-REF18383 PARAMS-REF18384
       WORK-REF18385 IWORK-REF18386 INFO-REF18387))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRRFS "strrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRRFS
    (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18391 ':INT32)
                              (NRHS-REF18392 ':INT32)
                              (LDA-REF18394 ':INT32)
                              (LDB-REF18396 ':INT32)
                              (LDX-REF18398 ':INT32)
                              (INFO-REF18403 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18392 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18394 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18396 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18398 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18403 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18393 A)
                                            (B-REF18395 B)
                                            (X-REF18397 X)
                                            (FERR-REF18399 FERR)
                                            (BERR-REF18400 BERR)
                                            (WORK-REF18401 WORK)
                                            (IWORK-REF18402 IWORK))
      (%%STRRFS UPLO TRANS DIAG N-REF18391 NRHS-REF18392 A-REF18393
       LDA-REF18394 B-REF18395 LDB-REF18396 X-REF18397 LDX-REF18398
       FERR-REF18399 BERR-REF18400 WORK-REF18401 IWORK-REF18402
       INFO-REF18403))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASQ2 "slasq2_")
  ((N :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASQ2 (N Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18404 ':INT32)
                              (INFO-REF18406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18404 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18406 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF18405 Z))
      (%%SLASQ2 N-REF18404 Z-REF18405 INFO-REF18406))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYSVX "dsysvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYSVX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR BERR
     WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18409 ':INT32)
                              (NRHS-REF18410 ':INT32)
                              (LDA-REF18412 ':INT32)
                              (LDAF-REF18414 ':INT32)
                              (LDB-REF18417 ':INT32)
                              (LDX-REF18419 ':INT32)
                              (RCOND-REF18420 ':DOUBLE)
                              (LWORK-REF18424 ':INT32)
                              (INFO-REF18426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18410 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18412 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18414 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18417 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18419 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18420 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18424 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18411 A)
                                            (AF-REF18413 AF)
                                            (IPIV-REF18415 IPIV)
                                            (B-REF18416 B)
                                            (X-REF18418 X)
                                            (FERR-REF18421 FERR)
                                            (BERR-REF18422 BERR)
                                            (WORK-REF18423 WORK)
                                            (IWORK-REF18425 IWORK))
      (%%DSYSVX FACT UPLO N-REF18409 NRHS-REF18410 A-REF18411
       LDA-REF18412 AF-REF18413 LDAF-REF18414 IPIV-REF18415 B-REF18416
       LDB-REF18417 X-REF18418 LDX-REF18419 RCOND-REF18420
       FERR-REF18421 BERR-REF18422 WORK-REF18423 LWORK-REF18424
       IWORK-REF18425 INFO-REF18426))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESVDX "sgesvdx_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESVDX
    (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVDX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18430 ':INT32) (N-REF18431 ':INT32)
                              (LDA-REF18433 ':INT32)
                              (VL-REF18434 ':FLOAT)
                              (VU-REF18435 ':FLOAT)
                              (IL-REF18436 ':INT32)
                              (IU-REF18437 ':INT32)
                              (NS-REF18438 ':INT32)
                              (LDU-REF18441 ':INT32)
                              (LDVT-REF18443 ':INT32)
                              (LWORK-REF18445 ':INT32)
                              (INFO-REF18447 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18430 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18431 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18433 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18434 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18435 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18436 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18437 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF18438 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18441 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18443 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18445 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18447 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18432 A)
                                            (S-REF18439 S)
                                            (U-REF18440 U)
                                            (VT-REF18442 VT)
                                            (WORK-REF18444 WORK)
                                            (IWORK-REF18446 IWORK))
      (%%SGESVDX JOBU JOBVT RANGE M-REF18430 N-REF18431 A-REF18432
       LDA-REF18433 VL-REF18434 VU-REF18435 IL-REF18436 IU-REF18437
       NS-REF18438 S-REF18439 U-REF18440 LDU-REF18441 VT-REF18442
       LDVT-REF18443 WORK-REF18444 LWORK-REF18445 IWORK-REF18446
       INFO-REF18447))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELQF "sgelqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18448 ':INT32) (N-REF18449 ':INT32)
                              (LDA-REF18451 ':INT32)
                              (LWORK-REF18454 ':INT32)
                              (INFO-REF18455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18448 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18449 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18451 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18454 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18450 A)
                                            (TAU-REF18452 TAU)
                                            (WORK-REF18453 WORK))
      (%%SGELQF M-REF18448 N-REF18449 A-REF18450 LDA-REF18451
       TAU-REF18452 WORK-REF18453 LWORK-REF18454 INFO-REF18455))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELSS "cgelss_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELSS
    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18456 ':INT32) (N-REF18457 ':INT32)
                              (NRHS-REF18458 ':INT32)
                              (LDA-REF18460 ':INT32)
                              (LDB-REF18462 ':INT32)
                              (RCOND-REF18464 ':FLOAT)
                              (RANK-REF18465 ':INT32)
                              (LWORK-REF18467 ':INT32)
                              (INFO-REF18469 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18456 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18457 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18458 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18460 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18462 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18464 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF18465 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18467 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18469 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18459 A)
                                            (B-REF18461 B)
                                            (S-REF18463 S)
                                            (WORK-REF18466 WORK)
                                            (RWORK-REF18468 RWORK))
      (%%CGELSS M-REF18456 N-REF18457 NRHS-REF18458 A-REF18459
       LDA-REF18460 B-REF18461 LDB-REF18462 S-REF18463 RCOND-REF18464
       RANK-REF18465 WORK-REF18466 LWORK-REF18467 RWORK-REF18468
       INFO-REF18469))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGRQF "dggrqf_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAUA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TAUB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGRQF
    (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGRQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18470 ':INT32) (P-REF18471 ':INT32)
                              (N-REF18472 ':INT32)
                              (LDA-REF18474 ':INT32)
                              (LDB-REF18477 ':INT32)
                              (LWORK-REF18480 ':INT32)
                              (INFO-REF18481 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18470 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18471 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18472 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18474 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18477 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18480 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18481 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18473 A)
                                            (TAUA-REF18475 TAUA)
                                            (B-REF18476 B)
                                            (TAUB-REF18478 TAUB)
                                            (WORK-REF18479 WORK))
      (%%DGGRQF M-REF18470 P-REF18471 N-REF18472 A-REF18473
       LDA-REF18474 TAUA-REF18475 B-REF18476 LDB-REF18477 TAUB-REF18478
       WORK-REF18479 LWORK-REF18480 INFO-REF18481))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRR "dlarrr_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRR (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18482 ':INT32)
                              (INFO-REF18485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF18483 D)
                                            (E-REF18484 E))
      (%%DLARRR N-REF18482 D-REF18483 E-REF18484 INFO-REF18485))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHESV_AA "zhesv_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESV_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18487 ':INT32)
                              (NRHS-REF18488 ':INT32)
                              (LDA-REF18490 ':INT32)
                              (LDB-REF18493 ':INT32)
                              (LWORK-REF18495 ':INT32)
                              (INFO-REF18496 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18487 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18488 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18490 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18493 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18495 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18496 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18489 A)
                                            (IPIV-REF18491 IPIV)
                                            (B-REF18492 B)
                                            (WORK-REF18494 WORK))
      (%%ZHESV_AA UPLO N-REF18487 NRHS-REF18488 A-REF18489 LDA-REF18490
       IPIV-REF18491 B-REF18492 LDB-REF18493 WORK-REF18494
       LWORK-REF18495 INFO-REF18496))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBRFS "cgbrfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBRFS
    (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR BERR
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18498 ':INT32)
                              (KL-REF18499 ':INT32)
                              (KU-REF18500 ':INT32)
                              (NRHS-REF18501 ':INT32)
                              (LDAB-REF18503 ':INT32)
                              (LDAFB-REF18505 ':INT32)
                              (LDB-REF18508 ':INT32)
                              (LDX-REF18510 ':INT32)
                              (INFO-REF18515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18498 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF18499 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF18500 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18501 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18503 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF18505 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18508 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18510 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18502 AB)
                                            (AFB-REF18504 AFB)
                                            (IPIV-REF18506 IPIV)
                                            (B-REF18507 B)
                                            (X-REF18509 X)
                                            (FERR-REF18511 FERR)
                                            (BERR-REF18512 BERR)
                                            (WORK-REF18513 WORK)
                                            (RWORK-REF18514 RWORK))
      (%%CGBRFS TRANS N-REF18498 KL-REF18499 KU-REF18500 NRHS-REF18501
       AB-REF18502 LDAB-REF18503 AFB-REF18504 LDAFB-REF18505
       IPIV-REF18506 B-REF18507 LDB-REF18508 X-REF18509 LDX-REF18510
       FERR-REF18511 BERR-REF18512 WORK-REF18513 RWORK-REF18514
       INFO-REF18515))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGSVJ1 "cgsvj1_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS)
   (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (EPS :FOREIGN-ADDRESS) (SFMIN :FOREIGN-ADDRESS)
   (TOL :FOREIGN-ADDRESS) (NSWEEP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGSVJ1
    (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGSVJ1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18517 ':INT32) (N-REF18518 ':INT32)
                              (N1-REF18519 ':INT32)
                              (LDA-REF18521 ':INT32)
                              (MV-REF18524 ':INT32)
                              (LDV-REF18526 ':INT32)
                              (EPS-REF18527 ':FLOAT)
                              (SFMIN-REF18528 ':FLOAT)
                              (TOL-REF18529 ':FLOAT)
                              (NSWEEP-REF18530 ':INT32)
                              (LWORK-REF18532 ':INT32)
                              (INFO-REF18533 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18517 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF18519 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18521 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18524 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18526 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18527 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18528 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18529 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18530 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18532 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18533 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18520 A)
                                            (D-REF18522 D)
                                            (SVA-REF18523 SVA)
                                            (V-REF18525 V)
                                            (WORK-REF18531 WORK))
      (%%CGSVJ1 JOBV M-REF18517 N-REF18518 N1-REF18519 A-REF18520
       LDA-REF18521 D-REF18522 SVA-REF18523 MV-REF18524 V-REF18525
       LDV-REF18526 EPS-REF18527 SFMIN-REF18528 TOL-REF18529
       NSWEEP-REF18530 WORK-REF18531 LWORK-REF18532 INFO-REF18533))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGEXC "ztgexc_")
  ((WANTQ :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (IFST :FOREIGN-ADDRESS) (ILST :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGEXC
    (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEXC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF18534 ':INT32)
                              (WANTZ-REF18535 ':INT32)
                              (N-REF18536 ':INT32)
                              (LDA-REF18538 ':INT32)
                              (LDB-REF18540 ':INT32)
                              (LDQ-REF18542 ':INT32)
                              (LDZ-REF18544 ':INT32)
                              (IFST-REF18545 ':INT32)
                              (ILST-REF18546 ':INT32)
                              (INFO-REF18547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF18534 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF18535 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18536 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18538 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18540 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18542 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18544 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF18545 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF18546 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18537 A)
                                            (B-REF18539 B)
                                            (Q-REF18541 Q)
                                            (Z-REF18543 Z))
      (%%ZTGEXC WANTQ-REF18534 WANTZ-REF18535 N-REF18536 A-REF18537
       LDA-REF18538 B-REF18539 LDB-REF18540 Q-REF18541 LDQ-REF18542
       Z-REF18543 LDZ-REF18544 IFST-REF18545 ILST-REF18546
       INFO-REF18547))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGERFS "dgerfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGERFS
    (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18549 ':INT32)
                              (NRHS-REF18550 ':INT32)
                              (LDA-REF18552 ':INT32)
                              (LDAF-REF18554 ':INT32)
                              (LDB-REF18557 ':INT32)
                              (LDX-REF18559 ':INT32)
                              (INFO-REF18564 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18549 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18550 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18552 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18554 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18557 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18559 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18564 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18551 A)
                                            (AF-REF18553 AF)
                                            (IPIV-REF18555 IPIV)
                                            (B-REF18556 B)
                                            (X-REF18558 X)
                                            (FERR-REF18560 FERR)
                                            (BERR-REF18561 BERR)
                                            (WORK-REF18562 WORK)
                                            (IWORK-REF18563 IWORK))
      (%%DGERFS TRANS N-REF18549 NRHS-REF18550 A-REF18551 LDA-REF18552
       AF-REF18553 LDAF-REF18554 IPIV-REF18555 B-REF18556 LDB-REF18557
       X-REF18558 LDX-REF18559 FERR-REF18560 BERR-REF18561
       WORK-REF18562 IWORK-REF18563 INFO-REF18564))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STGSNA "stgsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STGSNA
    (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18568 ':INT32)
                              (LDA-REF18570 ':INT32)
                              (LDB-REF18572 ':INT32)
                              (LDVL-REF18574 ':INT32)
                              (LDVR-REF18576 ':INT32)
                              (MM-REF18579 ':INT32)
                              (M-REF18580 ':INT32)
                              (LWORK-REF18582 ':INT32)
                              (INFO-REF18584 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18568 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18570 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18572 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18574 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18576 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF18579 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18580 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18582 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18584 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF18567 SELECT)
                                            (A-REF18569 A)
                                            (B-REF18571 B)
                                            (VL-REF18573 VL)
                                            (VR-REF18575 VR)
                                            (S-REF18577 S)
                                            (DIF-REF18578 DIF)
                                            (WORK-REF18581 WORK)
                                            (IWORK-REF18583 IWORK))
      (%%STGSNA JOB HOWMNY SELECT-REF18567 N-REF18568 A-REF18569
       LDA-REF18570 B-REF18571 LDB-REF18572 VL-REF18573 LDVL-REF18574
       VR-REF18575 LDVR-REF18576 S-REF18577 DIF-REF18578 MM-REF18579
       M-REF18580 WORK-REF18581 LWORK-REF18582 IWORK-REF18583
       INFO-REF18584))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGES "zgges_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VSL :FOREIGN-ADDRESS)
   (LDVSL :FOREIGN-ADDRESS) (VSR :FOREIGN-ADDRESS)
   (LDVSR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGES
    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL LDVSL
     VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGES)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18588 ':INT32)
                              (N-REF18589 ':INT32)
                              (LDA-REF18591 ':INT32)
                              (LDB-REF18593 ':INT32)
                              (SDIM-REF18594 ':INT32)
                              (LDVSL-REF18598 ':INT32)
                              (LDVSR-REF18600 ':INT32)
                              (LWORK-REF18602 ':INT32)
                              (INFO-REF18605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18588 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18591 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18593 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18594 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18598 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18600 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18602 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18605 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18590 A)
                                            (B-REF18592 B)
                                            (ALPHA-REF18595 ALPHA)
                                            (BETA-REF18596 BETA)
                                            (VSL-REF18597 VSL)
                                            (VSR-REF18599 VSR)
                                            (WORK-REF18601 WORK)
                                            (RWORK-REF18603 RWORK)
                                            (BWORK-REF18604 BWORK))
      (%%ZGGES JOBVSL JOBVSR SORT SELCTG-REF18588 N-REF18589 A-REF18590
       LDA-REF18591 B-REF18592 LDB-REF18593 SDIM-REF18594
       ALPHA-REF18595 BETA-REF18596 VSL-REF18597 LDVSL-REF18598
       VSR-REF18599 LDVSR-REF18600 WORK-REF18601 LWORK-REF18602
       RWORK-REF18603 BWORK-REF18604 INFO-REF18605))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGECON "cgecon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGECON (NORM N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGECON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18607 ':INT32)
                              (LDA-REF18609 ':INT32)
                              (ANORM-REF18610 ':FLOAT)
                              (RCOND-REF18611 ':FLOAT)
                              (INFO-REF18614 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18607 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18609 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF18610 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18611 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18614 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18608 A)
                                            (WORK-REF18612 WORK)
                                            (RWORK-REF18613 RWORK))
      (%%CGECON NORM N-REF18607 A-REF18608 LDA-REF18609 ANORM-REF18610
       RCOND-REF18611 WORK-REF18612 RWORK-REF18613 INFO-REF18614))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGTCON "cgtcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS)
   (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGTCON
    (NORM N DL D DU DU2 IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18616 ':INT32)
                              (ANORM-REF18622 ':FLOAT)
                              (RCOND-REF18623 ':FLOAT)
                              (INFO-REF18625 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18616 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF18622 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18623 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18625 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18617 DL)
                                            (D-REF18618 D)
                                            (DU-REF18619 DU)
                                            (DU2-REF18620 DU2)
                                            (IPIV-REF18621 IPIV)
                                            (WORK-REF18624 WORK))
      (%%CGTCON NORM N-REF18616 DL-REF18617 D-REF18618 DU-REF18619
       DU2-REF18620 IPIV-REF18621 ANORM-REF18622 RCOND-REF18623
       WORK-REF18624 INFO-REF18625))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SRSCL "srscl_")
  ((N :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS) (SX :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SRSCL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18626 ':INT32)
                              (SA-REF18627 ':FLOAT)
                              (INCX-REF18629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF18627 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF18629 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF18628 SX))
      (%%SRSCL N-REF18626 SA-REF18627 SX-REF18628 INCX-REF18629))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASSQ "dlassq_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (SUMSQ :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASSQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18630 ':INT32)
                              (INCX-REF18632 ':INT32)
                              (SCALE-REF18633 ':DOUBLE)
                              (SUMSQ-REF18634 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF18632 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18633 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF18634 :DOUBLE) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF18631 X))
      (%%DLASSQ N-REF18630 X-REF18631 INCX-REF18632 SCALE-REF18633
       SUMSQ-REF18634))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYCONVF_ROOK "ssyconvf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONVF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18637 ':INT32)
                              (LDA-REF18639 ':INT32)
                              (INFO-REF18642 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18637 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18639 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18642 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18638 A)
                                            (E-REF18640 E)
                                            (IPIV-REF18641 IPIV))
      (%%SSYCONVF_ROOK UPLO WAY N-REF18637 A-REF18638 LDA-REF18639
       E-REF18640 IPIV-REF18641 INFO-REF18642))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPLQT2 "ctplqt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPLQT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18643 ':INT32) (N-REF18644 ':INT32)
                              (L-REF18645 ':INT32)
                              (LDA-REF18647 ':INT32)
                              (LDB-REF18649 ':INT32)
                              (LDT-REF18651 ':INT32)
                              (INFO-REF18652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18643 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18644 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18645 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18647 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18649 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18651 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18652 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18646 A)
                                            (B-REF18648 B)
                                            (T-REF18650 T))
      (%%CTPLQT2 M-REF18643 N-REF18644 L-REF18645 A-REF18646
       LDA-REF18647 B-REF18648 LDB-REF18649 T-REF18650 LDT-REF18651
       INFO-REF18652))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQRT "sgeqrt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18653 ':INT32) (N-REF18654 ':INT32)
                              (NB-REF18655 ':INT32)
                              (LDA-REF18657 ':INT32)
                              (LDT-REF18659 ':INT32)
                              (INFO-REF18661 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18653 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18654 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18655 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18657 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18659 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18661 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18656 A)
                                            (T-REF18658 T)
                                            (WORK-REF18660 WORK))
      (%%SGEQRT M-REF18653 N-REF18654 NB-REF18655 A-REF18656
       LDA-REF18657 T-REF18658 LDT-REF18659 WORK-REF18660
       INFO-REF18661))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQR2 "zgeqr2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18662 ':INT32) (N-REF18663 ':INT32)
                              (LDA-REF18665 ':INT32)
                              (INFO-REF18668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18662 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18663 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18665 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18668 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18664 A)
                                            (TAU-REF18666 TAU)
                                            (WORK-REF18667 WORK))
      (%%ZGEQR2 M-REF18662 N-REF18663 A-REF18664 LDA-REF18665
       TAU-REF18666 WORK-REF18667 INFO-REF18668))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASYF "slasyf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18670 ':INT32)
                              (NB-REF18671 ':INT32)
                              (KB-REF18672 ':INT32)
                              (LDA-REF18674 ':INT32)
                              (LDW-REF18677 ':INT32)
                              (INFO-REF18678 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18671 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18672 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18674 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF18677 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18678 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18673 A)
                                            (IPIV-REF18675 IPIV)
                                            (W-REF18676 W))
      (%%SLASYF UPLO N-REF18670 NB-REF18671 KB-REF18672 A-REF18673
       LDA-REF18674 IPIV-REF18675 W-REF18676 LDW-REF18677
       INFO-REF18678))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPSV "zspsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18680 ':INT32)
                              (NRHS-REF18681 ':INT32)
                              (LDB-REF18685 ':INT32)
                              (INFO-REF18686 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18680 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18681 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18685 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18686 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF18682 AP)
                                            (IPIV-REF18683 IPIV)
                                            (B-REF18684 B))
      (%%ZSPSV UPLO N-REF18680 NRHS-REF18681 AP-REF18682 IPIV-REF18683
       B-REF18684 LDB-REF18685 INFO-REF18686))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQHE "claqhe_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQHE (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18688 ':INT32)
                              (LDA-REF18690 ':INT32)
                              (SCOND-REF18692 ':FLOAT)
                              (AMAX-REF18693 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18688 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18690 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF18692 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF18693 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18689 A)
                                            (S-REF18691 S))
      (%%CLAQHE UPLO N-REF18688 A-REF18689 LDA-REF18690 S-REF18691
       SCOND-REF18692 AMAX-REF18693 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEBAK "dgebak_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18697 ':INT32)
                              (ILO-REF18698 ':INT32)
                              (IHI-REF18699 ':INT32)
                              (M-REF18701 ':INT32)
                              (LDV-REF18703 ':INT32)
                              (INFO-REF18704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18697 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18698 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18699 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18701 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18703 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF18700 SCALE)
                                            (V-REF18702 V))
      (%%DGEBAK JOB SIDE N-REF18697 ILO-REF18698 IHI-REF18699
       SCALE-REF18700 M-REF18701 V-REF18702 LDV-REF18703
       INFO-REF18704))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPEVD "chpevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPEVD
    (JOBZ UPLO N AP W Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18707 ':INT32)
                              (LDZ-REF18711 ':INT32)
                              (LWORK-REF18713 ':INT32)
                              (LRWORK-REF18715 ':INT32)
                              (LIWORK-REF18717 ':INT32)
                              (INFO-REF18718 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18707 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18711 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18713 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18715 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18717 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18718 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF18708 AP)
                                            (W-REF18709 W)
                                            (Z-REF18710 Z)
                                            (WORK-REF18712 WORK)
                                            (RWORK-REF18714 RWORK)
                                            (IWORK-REF18716 IWORK))
      (%%CHPEVD JOBZ UPLO N-REF18707 AP-REF18708 W-REF18709 Z-REF18710
       LDZ-REF18711 WORK-REF18712 LWORK-REF18713 RWORK-REF18714
       LRWORK-REF18715 IWORK-REF18716 LIWORK-REF18717 INFO-REF18718))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBGST "dsbgst_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBGST
    (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGST)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18721 ':INT32)
                              (KA-REF18722 ':INT32)
                              (KB-REF18723 ':INT32)
                              (LDAB-REF18725 ':INT32)
                              (LDBB-REF18727 ':INT32)
                              (LDX-REF18729 ':INT32)
                              (INFO-REF18731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18722 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18723 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18725 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18727 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18729 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18731 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18724 AB)
                                            (BB-REF18726 BB)
                                            (X-REF18728 X)
                                            (WORK-REF18730 WORK))
      (%%DSBGST VECT UPLO N-REF18721 KA-REF18722 KB-REF18723
       AB-REF18724 LDAB-REF18725 BB-REF18726 LDBB-REF18727 X-REF18728
       LDX-REF18729 WORK-REF18730 INFO-REF18731))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DHSEQR "dhseqr_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DHSEQR
    (JOB COMPZ N ILO IHI H LDH WR WI Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18734 ':INT32)
                              (ILO-REF18735 ':INT32)
                              (IHI-REF18736 ':INT32)
                              (LDH-REF18738 ':INT32)
                              (LDZ-REF18742 ':INT32)
                              (LWORK-REF18744 ':INT32)
                              (INFO-REF18745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18734 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18735 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18736 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF18738 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18742 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18744 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18745 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF18737 H)
                                            (WR-REF18739 WR)
                                            (WI-REF18740 WI)
                                            (Z-REF18741 Z)
                                            (WORK-REF18743 WORK))
      (%%DHSEQR JOB COMPZ N-REF18734 ILO-REF18735 IHI-REF18736
       H-REF18737 LDH-REF18738 WR-REF18739 WI-REF18740 Z-REF18741
       LDZ-REF18742 WORK-REF18743 LWORK-REF18744 INFO-REF18745))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARTGS "slartgs_")
  ((X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (SIGMA :FOREIGN-ADDRESS)
   (CS :FOREIGN-ADDRESS) (SN :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARTGS (X Y SIGMA CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTGS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF18746 ':FLOAT) (Y-REF18747 ':FLOAT)
                              (SIGMA-REF18748 ':FLOAT)
                              (CS-REF18749 ':FLOAT)
                              (SN-REF18750 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF18746 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF18747 :FLOAT) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF18748 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF18749 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF18750 :FLOAT) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTGS X-REF18746 Y-REF18747 SIGMA-REF18748 CS-REF18749
       SN-REF18750))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHESWAPR "zheswapr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (I1 :FOREIGN-ADDRESS)
   (I2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESWAPR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18752 ':INT32)
                              (LDA-REF18754 ':INT32)
                              (I1-REF18755 ':INT32)
                              (I2-REF18756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18752 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18754 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF18755 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF18756 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18753 A))
      (%%ZHESWAPR UPLO N-REF18752 A-REF18753 LDA-REF18754 I1-REF18755
       I2-REF18756))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAED0 "claed0_")
  ((QSIZ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (QSTORE :FOREIGN-ADDRESS) (LDQS :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAED0
    (QSIZ N D E Q LDQ QSTORE LDQS RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAED0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    QSTORE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF18757 ':INT32)
                              (N-REF18758 ':INT32)
                              (LDQ-REF18762 ':INT32)
                              (LDQS-REF18764 ':INT32)
                              (INFO-REF18767 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF18757 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18758 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18762 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF18764 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18767 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF18759 D)
                                            (E-REF18760 E)
                                            (Q-REF18761 Q)
                                            (QSTORE-REF18763 QSTORE)
                                            (RWORK-REF18765 RWORK)
                                            (IWORK-REF18766 IWORK))
      (%%CLAED0 QSIZ-REF18757 N-REF18758 D-REF18759 E-REF18760
       Q-REF18761 LDQ-REF18762 QSTORE-REF18763 LDQS-REF18764
       RWORK-REF18765 IWORK-REF18766 INFO-REF18767))))

(COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%ZUNMTR %ZUNMTR
                      %%SSYEVX_2STAGE %SSYEVX_2STAGE %%DGBTF2 %DGBTF2
                      %%DLARSCL2 %DLARSCL2 %%DPTSV %DPTSV %%ZLARFT
                      %ZLARFT %%SLASDA %SLASDA %%SPOEQUB %SPOEQUB
                      %%ZPPSVX %ZPPSVX %%DTZRZF %DTZRZF %%DSYRFSX
                      %DSYRFSX %%CHETRF %CHETRF %%SLAEV2 %SLAEV2
                      %%CTREVC3 %CTREVC3 %%CTRSYL %CTRSYL %%SGGEV3
                      %SGGEV3 %%SGETRF2 %SGETRF2 %%STGEX2 %STGEX2
                      %%SPPTRI %SPPTRI %%CPTSVX %CPTSVX %%DSYGS2
                      %DSYGS2 %%CLA_PORPVGRW %CLA_PORPVGRW %%SLARZ
                      %SLARZ %%CHECON %CHECON %%SOPMTR %SOPMTR %%STFSM
                      %STFSM %%ZLAIC1 %ZLAIC1 %%DTREXC %DTREXC %%SGTTRS
                      %SGTTRS %%CLATDF %CLATDF %%ZLAQGB %ZLAQGB
                      %%CGERFS %CGERFS %%SLAMRG %SLAMRG %%ZTRCON
                      %ZTRCON %%DGESVD %DGESVD %%DSYTF2_RK %DSYTF2_RK
                      %%SPOSVX %SPOSVX %%CHPGST %CHPGST %%DSTEV %DSTEV
                      %%CLAG2Z %CLAG2Z %%SSPSVX %SSPSVX %%DSBGV %DSBGV
                      %%ZUNMLQ %ZUNMLQ %%SGESVXX %SGESVXX %%ZLAQHE
                      %ZLAQHE %%ZLAESY %ZLAESY %%SDISNA %SDISNA
                      %%DGEHRD %DGEHRD %%DGETRI %DGETRI %%DPPTRF
                      %DPPTRF %%SSFRK %SSFRK %%DTBCON %DTBCON %%ZUNGRQ
                      %ZUNGRQ %%DGEQRFP %DGEQRFP %%STRTRS %STRTRS
                      %%ZGESVX %ZGESVX %%SGEEV %SGEEV %%SSYGST %SSYGST
                      %%SLARRK %SLARRK %%CLAQR1 %CLAQR1 %%SPPRFS
                      %SPPRFS %%DLALSD %DLALSD %%DLANTR %DLANTR
                      %%DLASET %DLASET %%ZSYSVXX %ZSYSVXX %%ZLARZT
                      %ZLARZT %%SSTERF %SSTERF %%SSYTF2_RK %SSYTF2_RK
                      %%ZSPMV %ZSPMV %%DSYTRF_AA %DSYTRF_AA %%CGEEV
                      %CGEEV %%ZGSVJ0 %ZGSVJ0 %%ZTGSJA %ZTGSJA %%CLATPS
                      %CLATPS %%SLANGE %SLANGE %%SLA_SYRFSX_EXTENDED
                      %SLA_SYRFSX_EXTENDED %%ZLAQHB %ZLAQHB %%DLASDQ
                      %DLASDQ %%ZGGGLM %ZGGGLM %%CTRTTP %CTRTTP
                      %%ZPFTRI %ZPFTRI %%CSPRFS %CSPRFS %%STREVC3
                      %STREVC3 %%SLARRD %SLARRD %%SGETRS %SGETRS
                      %%STFTTP %STFTTP %%ZSYTRS %ZSYTRS %%SGGHD3
                      %SGGHD3 %%CTPTRS %CTPTRS %%SSYTRS_AA %SSYTRS_AA
                      %%ZHPSV %ZHPSV %%CPBTRS %CPBTRS %%SGGBAK %SGGBAK
                      %%ZLARTG %ZLARTG %%DLASD3 %DLASD3 %%DTPLQT2
                      %DTPLQT2 %%CLAQSB %CLAQSB %%ZLAHEF_AA %ZLAHEF_AA
                      %%ZSYRFSX %ZSYRFSX %%SORM22 %SORM22 %%SGERFSX
                      %SGERFSX %%ZSTEDC %ZSTEDC %%ZGGRQF %ZGGRQF
                      %%SLALS0 %SLALS0 %%DTPRFB %DTPRFB %%ILAPREC
                      %ILAPREC %%SPPEQU %SPPEQU %%DLANGT %DLANGT
                      %%SGEQL2 %SGEQL2 %%ZLA_GERCOND_C %ZLA_GERCOND_C
                      %%SLAPMR %SLAPMR %%DGGES3 %DGGES3 %%ZLA_HERCOND_X
                      %ZLA_HERCOND_X %%SSYGS2 %SSYGS2 %%SLAED9 %SLAED9
                      %%ZSYMV %ZSYMV %%ZLAED8 %ZLAED8 %%DLASQ5 %DLASQ5
                      %%CLASET %CLASET %%ZPOSV %ZPOSV %%DSYSV_RK
                      %DSYSV_RK %%ZGEHRD %ZGEHRD %%ZGECON %ZGECON
                      %%SSPEV %SSPEV %%ZLA_GERFSX_EXTENDED
                      %ZLA_GERFSX_EXTENDED %%SLAED7 %SLAED7 %%ZGEMLQT
                      %ZGEMLQT %%CGBCON %CGBCON %%SPORFSX %SPORFSX
                      %%ZHPGV %ZHPGV %%ILAZLR %ILAZLR %%ZLARSCL2
                      %ZLARSCL2 %%DORCSD2BY1 %DORCSD2BY1 %%DLAGV2
                      %DLAGV2 %%CHPGV %CHPGV %%DGELQT %DGELQT %%ZLAED0
                      %ZLAED0 %%CLAQGB %CLAQGB %%CHESV %CHESV %%CLAHQR
                      %CLAHQR %%CPPTRI %CPPTRI %%SLAEIN %SLAEIN
                      %%DSTEVX %DSTEVX %%ZUNCSD %ZUNCSD %%DSYRFS
                      %DSYRFS %%CSPMV %CSPMV %%CPTEQR %CPTEQR %%DGESC2
                      %DGESC2 %%ZGETRF2 %ZGETRF2 %%ZHETRD %ZHETRD
                      %%SSYTF2_ROOK %SSYTF2_ROOK %%ZHPEVX %ZHPEVX
                      %%CHEGS2 %CHEGS2 %%SLASQ5 %SLASQ5 %%CPPEQU
                      %CPPEQU %%SPTSV %SPTSV %%ZHETRD_HE2HB
                      %ZHETRD_HE2HB %%CLARZB %CLARZB %%DSYTRS_ROOK
                      %DSYTRS_ROOK %%SGBTRS %SGBTRS %%CSYCONVF
                      %CSYCONVF %%ZTRTTF %ZTRTTF %%CLA_GBRPVGRW
                      %CLA_GBRPVGRW %%CLASCL %CLASCL %%ZLANSB %ZLANSB
                      %%CGEEQUB %CGEEQUB %%CUNBDB5 %CUNBDB5 %%ZLAEV2
                      %ZLAEV2 %%DLASY2 %DLASY2 %%ZLAHEF %ZLAHEF
                      %%DSPGST %DSPGST %%CLANHS %CLANHS %%ZGETRS
                      %ZGETRS %%DLAED5 %DLAED5 %%ZPOSVX %ZPOSVX
                      %%SGGES3 %SGGES3 %%CUNGQL %CUNGQL %%SLASQ1
                      %SLASQ1 %%DTPCON %DTPCON %%DLAGTM %DLAGTM
                      %%SLAQSB %SLAQSB %%SLARFG %SLARFG %%SLATRZ
                      %SLATRZ %%SLATBS %SLATBS %%CLA_GERCOND_X
                      %CLA_GERCOND_X %%CTGSYL %CTGSYL %%DLASYF_RK
                      %DLASYF_RK %%SLASDQ %SLASDQ %%ZSYTF2_RK
                      %ZSYTF2_RK %%ZLAPMR %ZLAPMR %%DGESDD %DGESDD
                      %%SLANST %SLANST %%SPFTRI %SPFTRI %%DSYGVD
                      %DSYGVD %%SPBSTF %SPBSTF %%DLATBS %DLATBS
                      %%ZTRTRI %ZTRTRI %%ZHBGVD %ZHBGVD %%ZLAQPS
                      %ZLAQPS %%CLAQR3 %CLAQR3 %%DGBSV %DGBSV %%CUNGRQ
                      %CUNGRQ %%ZHBEVD_2STAGE %ZHBEVD_2STAGE %%ZGBTRF
                      %ZGBTRF %%DGEQLF %DGEQLF %%CLAR1V %CLAR1V
                      %%ZPBTF2 %ZPBTF2 %%ZHESVXX %ZHESVXX %%DPOTRF
                      %DPOTRF %%CGELQF %CGELQF %%DLARGV %DLARGV
                      %%ZUNMRQ %ZUNMRQ %%DLAGTS %DLAGTS %%DGEMLQT
                      %DGEMLQT %%SSYRFSX %SSYRFSX %%STRRFS %STRRFS
                      %%SLASQ2 %SLASQ2 %%DSYSVX %DSYSVX %%SGESVDX
                      %SGESVDX %%SGELQF %SGELQF %%CGELSS %CGELSS
                      %%DGGRQF %DGGRQF %%DLARRR %DLARRR %%ZHESV_AA
                      %ZHESV_AA %%CGBRFS %CGBRFS %%CGSVJ1 %CGSVJ1
                      %%ZTGEXC %ZTGEXC %%DGERFS %DGERFS %%STGSNA
                      %STGSNA %%ZGGES %ZGGES %%CGECON %CGECON %%CGTCON
                      %CGTCON %%SRSCL %SRSCL %%DLASSQ %DLASSQ
                      %%SSYCONVF_ROOK %SSYCONVF_ROOK %%CTPLQT2 %CTPLQT2
                      %%SGEQRT %SGEQRT %%ZGEQR2 %ZGEQR2 %%SLASYF
                      %SLASYF %%ZSPSV %ZSPSV %%CLAQHE %CLAQHE %%DGEBAK
                      %DGEBAK %%CHPEVD %CHPEVD %%DSBGST %DSBGST
                      %%DHSEQR %DHSEQR %%SLARTGS %SLARTGS %%ZHESWAPR
                      %ZHESWAPR %%CLAED0 %CLAED0))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS
  'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
  '(("ZUNMTR" "zunmtr_" %%ZUNMTR %ZUNMTR)
    ("SSYEVX_2STAGE" "ssyevx_2stage_" %%SSYEVX_2STAGE %SSYEVX_2STAGE)
    ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2)
    ("DLARSCL2" "dlarscl2_" %%DLARSCL2 %DLARSCL2)
    ("DPTSV" "dptsv_" %%DPTSV %DPTSV)
    ("ZLARFT" "zlarft_" %%ZLARFT %ZLARFT)
    ("SLASDA" "slasda_" %%SLASDA %SLASDA)
    ("SPOEQUB" "spoequb_" %%SPOEQUB %SPOEQUB)
    ("ZPPSVX" "zppsvx_" %%ZPPSVX %ZPPSVX)
    ("DTZRZF" "dtzrzf_" %%DTZRZF %DTZRZF)
    ("DSYRFSX" "dsyrfsx_" %%DSYRFSX %DSYRFSX)
    ("CHETRF" "chetrf_" %%CHETRF %CHETRF)
    ("SLAEV2" "slaev2_" %%SLAEV2 %SLAEV2)
    ("CTREVC3" "ctrevc3_" %%CTREVC3 %CTREVC3)
    ("CTRSYL" "ctrsyl_" %%CTRSYL %CTRSYL)
    ("SGGEV3" "sggev3_" %%SGGEV3 %SGGEV3)
    ("SGETRF2" "sgetrf2_" %%SGETRF2 %SGETRF2)
    ("STGEX2" "stgex2_" %%STGEX2 %STGEX2)
    ("SPPTRI" "spptri_" %%SPPTRI %SPPTRI)
    ("CPTSVX" "cptsvx_" %%CPTSVX %CPTSVX)
    ("DSYGS2" "dsygs2_" %%DSYGS2 %DSYGS2)
    ("CLA_PORPVGRW" "cla_porpvgrw_" %%CLA_PORPVGRW %CLA_PORPVGRW)
    ("SLARZ" "slarz_" %%SLARZ %SLARZ)
    ("CHECON" "checon_" %%CHECON %CHECON)
    ("SOPMTR" "sopmtr_" %%SOPMTR %SOPMTR)
    ("STFSM" "stfsm_" %%STFSM %STFSM)
    ("ZLAIC1" "zlaic1_" %%ZLAIC1 %ZLAIC1)
    ("DTREXC" "dtrexc_" %%DTREXC %DTREXC)
    ("SGTTRS" "sgttrs_" %%SGTTRS %SGTTRS)
    ("CLATDF" "clatdf_" %%CLATDF %CLATDF)
    ("ZLAQGB" "zlaqgb_" %%ZLAQGB %ZLAQGB)
    ("CGERFS" "cgerfs_" %%CGERFS %CGERFS)
    ("SLAMRG" "slamrg_" %%SLAMRG %SLAMRG)
    ("ZTRCON" "ztrcon_" %%ZTRCON %ZTRCON)
    ("DGESVD" "dgesvd_" %%DGESVD %DGESVD)
    ("DSYTF2_RK" "dsytf2_rk_" %%DSYTF2_RK %DSYTF2_RK)
    ("SPOSVX" "sposvx_" %%SPOSVX %SPOSVX)
    ("CHPGST" "chpgst_" %%CHPGST %CHPGST)
    ("DSTEV" "dstev_" %%DSTEV %DSTEV)
    ("CLAG2Z" "clag2z_" %%CLAG2Z %CLAG2Z)
    ("SSPSVX" "sspsvx_" %%SSPSVX %SSPSVX)
    ("DSBGV" "dsbgv_" %%DSBGV %DSBGV)
    ("ZUNMLQ" "zunmlq_" %%ZUNMLQ %ZUNMLQ)
    ("SGESVXX" "sgesvxx_" %%SGESVXX %SGESVXX)
    ("ZLAQHE" "zlaqhe_" %%ZLAQHE %ZLAQHE)
    ("ZLAESY" "zlaesy_" %%ZLAESY %ZLAESY)
    ("SDISNA" "sdisna_" %%SDISNA %SDISNA)
    ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD)
    ("DGETRI" "dgetri_" %%DGETRI %DGETRI)
    ("DPPTRF" "dpptrf_" %%DPPTRF %DPPTRF)
    ("SSFRK" "ssfrk_" %%SSFRK %SSFRK)
    ("DTBCON" "dtbcon_" %%DTBCON %DTBCON)
    ("ZUNGRQ" "zungrq_" %%ZUNGRQ %ZUNGRQ)
    ("DGEQRFP" "dgeqrfp_" %%DGEQRFP %DGEQRFP)
    ("STRTRS" "strtrs_" %%STRTRS %STRTRS)
    ("ZGESVX" "zgesvx_" %%ZGESVX %ZGESVX)
    ("SGEEV" "sgeev_" %%SGEEV %SGEEV)
    ("SSYGST" "ssygst_" %%SSYGST %SSYGST)
    ("SLARRK" "slarrk_" %%SLARRK %SLARRK)
    ("CLAQR1" "claqr1_" %%CLAQR1 %CLAQR1)
    ("SPPRFS" "spprfs_" %%SPPRFS %SPPRFS)
    ("DLALSD" "dlalsd_" %%DLALSD %DLALSD)
    ("DLANTR" "dlantr_" %%DLANTR %DLANTR)
    ("DLASET" "dlaset_" %%DLASET %DLASET)
    ("ZSYSVXX" "zsysvxx_" %%ZSYSVXX %ZSYSVXX)
    ("ZLARZT" "zlarzt_" %%ZLARZT %ZLARZT)
    ("SSTERF" "ssterf_" %%SSTERF %SSTERF)
    ("SSYTF2_RK" "ssytf2_rk_" %%SSYTF2_RK %SSYTF2_RK)
    ("ZSPMV" "zspmv_" %%ZSPMV %ZSPMV)
    ("DSYTRF_AA" "dsytrf_aa_" %%DSYTRF_AA %DSYTRF_AA)
    ("CGEEV" "cgeev_" %%CGEEV %CGEEV)
    ("ZGSVJ0" "zgsvj0_" %%ZGSVJ0 %ZGSVJ0)
    ("ZTGSJA" "ztgsja_" %%ZTGSJA %ZTGSJA)
    ("CLATPS" "clatps_" %%CLATPS %CLATPS)
    ("SLANGE" "slange_" %%SLANGE %SLANGE)
    ("SLA_SYRFSX_EXTENDED" "sla_syrfsx_extended_" %%SLA_SYRFSX_EXTENDED
     %SLA_SYRFSX_EXTENDED)
    ("ZLAQHB" "zlaqhb_" %%ZLAQHB %ZLAQHB)
    ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ)
    ("ZGGGLM" "zggglm_" %%ZGGGLM %ZGGGLM)
    ("CTRTTP" "ctrttp_" %%CTRTTP %CTRTTP)
    ("ZPFTRI" "zpftri_" %%ZPFTRI %ZPFTRI)
    ("CSPRFS" "csprfs_" %%CSPRFS %CSPRFS)
    ("STREVC3" "strevc3_" %%STREVC3 %STREVC3)
    ("SLARRD" "slarrd_" %%SLARRD %SLARRD)
    ("SGETRS" "sgetrs_" %%SGETRS %SGETRS)
    ("STFTTP" "stfttp_" %%STFTTP %STFTTP)
    ("ZSYTRS" "zsytrs_" %%ZSYTRS %ZSYTRS)
    ("SGGHD3" "sgghd3_" %%SGGHD3 %SGGHD3)
    ("CTPTRS" "ctptrs_" %%CTPTRS %CTPTRS)
    ("SSYTRS_AA" "ssytrs_aa_" %%SSYTRS_AA %SSYTRS_AA)
    ("ZHPSV" "zhpsv_" %%ZHPSV %ZHPSV)
    ("CPBTRS" "cpbtrs_" %%CPBTRS %CPBTRS)
    ("SGGBAK" "sggbak_" %%SGGBAK %SGGBAK)
    ("ZLARTG" "zlartg_" %%ZLARTG %ZLARTG)
    ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3)
    ("DTPLQT2" "dtplqt2_" %%DTPLQT2 %DTPLQT2)
    ("CLAQSB" "claqsb_" %%CLAQSB %CLAQSB)
    ("ZLAHEF_AA" "zlahef_aa_" %%ZLAHEF_AA %ZLAHEF_AA)
    ("ZSYRFSX" "zsyrfsx_" %%ZSYRFSX %ZSYRFSX)
    ("SORM22" "sorm22_" %%SORM22 %SORM22)
    ("SGERFSX" "sgerfsx_" %%SGERFSX %SGERFSX)
    ("ZSTEDC" "zstedc_" %%ZSTEDC %ZSTEDC)
    ("ZGGRQF" "zggrqf_" %%ZGGRQF %ZGGRQF)
    ("SLALS0" "slals0_" %%SLALS0 %SLALS0)
    ("DTPRFB" "dtprfb_" %%DTPRFB %DTPRFB)
    ("ILAPREC" "ilaprec_" %%ILAPREC %ILAPREC)
    ("SPPEQU" "sppequ_" %%SPPEQU %SPPEQU)
    ("DLANGT" "dlangt_" %%DLANGT %DLANGT)
    ("SGEQL2" "sgeql2_" %%SGEQL2 %SGEQL2)
    ("ZLA_GERCOND_C" "zla_gercond_c_" %%ZLA_GERCOND_C %ZLA_GERCOND_C)
    ("SLAPMR" "slapmr_" %%SLAPMR %SLAPMR)
    ("DGGES3" "dgges3_" %%DGGES3 %DGGES3)
    ("ZLA_HERCOND_X" "zla_hercond_x_" %%ZLA_HERCOND_X %ZLA_HERCOND_X)
    ("SSYGS2" "ssygs2_" %%SSYGS2 %SSYGS2)
    ("SLAED9" "slaed9_" %%SLAED9 %SLAED9)
    ("ZSYMV" "zsymv_" %%ZSYMV %ZSYMV)
    ("ZLAED8" "zlaed8_" %%ZLAED8 %ZLAED8)
    ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5)
    ("CLASET" "claset_" %%CLASET %CLASET)
    ("ZPOSV" "zposv_" %%ZPOSV %ZPOSV)
    ("DSYSV_RK" "dsysv_rk_" %%DSYSV_RK %DSYSV_RK)
    ("ZGEHRD" "zgehrd_" %%ZGEHRD %ZGEHRD)
    ("ZGECON" "zgecon_" %%ZGECON %ZGECON)
    ("SSPEV" "sspev_" %%SSPEV %SSPEV)
    ("ZLA_GERFSX_EXTENDED" "zla_gerfsx_extended_" %%ZLA_GERFSX_EXTENDED
     %ZLA_GERFSX_EXTENDED)
    ("SLAED7" "slaed7_" %%SLAED7 %SLAED7)
    ("ZGEMLQT" "zgemlqt_" %%ZGEMLQT %ZGEMLQT)
    ("CGBCON" "cgbcon_" %%CGBCON %CGBCON)
    ("SPORFSX" "sporfsx_" %%SPORFSX %SPORFSX)
    ("ZHPGV" "zhpgv_" %%ZHPGV %ZHPGV)
    ("ILAZLR" "ilazlr_" %%ILAZLR %ILAZLR)
    ("ZLARSCL2" "zlarscl2_" %%ZLARSCL2 %ZLARSCL2)
    ("DORCSD2BY1" "dorcsd2by1_" %%DORCSD2BY1 %DORCSD2BY1)
    ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2)
    ("CHPGV" "chpgv_" %%CHPGV %CHPGV)
    ("DGELQT" "dgelqt_" %%DGELQT %DGELQT)
    ("ZLAED0" "zlaed0_" %%ZLAED0 %ZLAED0)
    ("CLAQGB" "claqgb_" %%CLAQGB %CLAQGB)
    ("CHESV" "chesv_" %%CHESV %CHESV)
    ("CLAHQR" "clahqr_" %%CLAHQR %CLAHQR)
    ("CPPTRI" "cpptri_" %%CPPTRI %CPPTRI)
    ("SLAEIN" "slaein_" %%SLAEIN %SLAEIN)
    ("DSTEVX" "dstevx_" %%DSTEVX %DSTEVX)
    ("ZUNCSD" "zuncsd_" %%ZUNCSD %ZUNCSD)
    ("DSYRFS" "dsyrfs_" %%DSYRFS %DSYRFS)
    ("CSPMV" "cspmv_" %%CSPMV %CSPMV)
    ("CPTEQR" "cpteqr_" %%CPTEQR %CPTEQR)
    ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2)
    ("ZGETRF2" "zgetrf2_" %%ZGETRF2 %ZGETRF2)
    ("ZHETRD" "zhetrd_" %%ZHETRD %ZHETRD)
    ("SSYTF2_ROOK" "ssytf2_rook_" %%SSYTF2_ROOK %SSYTF2_ROOK)
    ("ZHPEVX" "zhpevx_" %%ZHPEVX %ZHPEVX)
    ("CHEGS2" "chegs2_" %%CHEGS2 %CHEGS2)
    ("SLASQ5" "slasq5_" %%SLASQ5 %SLASQ5)
    ("CPPEQU" "cppequ_" %%CPPEQU %CPPEQU)
    ("SPTSV" "sptsv_" %%SPTSV %SPTSV)
    ("ZHETRD_HE2HB" "zhetrd_he2hb_" %%ZHETRD_HE2HB %ZHETRD_HE2HB)
    ("CLARZB" "clarzb_" %%CLARZB %CLARZB)
    ("DSYTRS_ROOK" "dsytrs_rook_" %%DSYTRS_ROOK %DSYTRS_ROOK)
    ("SGBTRS" "sgbtrs_" %%SGBTRS %SGBTRS)
    ("CSYCONVF" "csyconvf_" %%CSYCONVF %CSYCONVF)
    ("ZTRTTF" "ztrttf_" %%ZTRTTF %ZTRTTF)
    ("CLA_GBRPVGRW" "cla_gbrpvgrw_" %%CLA_GBRPVGRW %CLA_GBRPVGRW)
    ("CLASCL" "clascl_" %%CLASCL %CLASCL)
    ("ZLANSB" "zlansb_" %%ZLANSB %ZLANSB)
    ("CGEEQUB" "cgeequb_" %%CGEEQUB %CGEEQUB)
    ("CUNBDB5" "cunbdb5_" %%CUNBDB5 %CUNBDB5)
    ("ZLAEV2" "zlaev2_" %%ZLAEV2 %ZLAEV2)
    ("DLASY2" "dlasy2_" %%DLASY2 %DLASY2)
    ("ZLAHEF" "zlahef_" %%ZLAHEF %ZLAHEF)
    ("DSPGST" "dspgst_" %%DSPGST %DSPGST)
    ("CLANHS" "clanhs_" %%CLANHS %CLANHS)
    ("ZGETRS" "zgetrs_" %%ZGETRS %ZGETRS)
    ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5)
    ("ZPOSVX" "zposvx_" %%ZPOSVX %ZPOSVX)
    ("SGGES3" "sgges3_" %%SGGES3 %SGGES3)
    ("CUNGQL" "cungql_" %%CUNGQL %CUNGQL)
    ("SLASQ1" "slasq1_" %%SLASQ1 %SLASQ1)
    ("DTPCON" "dtpcon_" %%DTPCON %DTPCON)
    ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM)
    ("SLAQSB" "slaqsb_" %%SLAQSB %SLAQSB)
    ("SLARFG" "slarfg_" %%SLARFG %SLARFG)
    ("SLATRZ" "slatrz_" %%SLATRZ %SLATRZ)
    ("SLATBS" "slatbs_" %%SLATBS %SLATBS)
    ("CLA_GERCOND_X" "cla_gercond_x_" %%CLA_GERCOND_X %CLA_GERCOND_X)
    ("CTGSYL" "ctgsyl_" %%CTGSYL %CTGSYL)
    ("DLASYF_RK" "dlasyf_rk_" %%DLASYF_RK %DLASYF_RK)
    ("SLASDQ" "slasdq_" %%SLASDQ %SLASDQ)
    ("ZSYTF2_RK" "zsytf2_rk_" %%ZSYTF2_RK %ZSYTF2_RK)
    ("ZLAPMR" "zlapmr_" %%ZLAPMR %ZLAPMR)
    ("DGESDD" "dgesdd_" %%DGESDD %DGESDD)
    ("SLANST" "slanst_" %%SLANST %SLANST)
    ("SPFTRI" "spftri_" %%SPFTRI %SPFTRI)
    ("DSYGVD" "dsygvd_" %%DSYGVD %DSYGVD)
    ("SPBSTF" "spbstf_" %%SPBSTF %SPBSTF)
    ("DLATBS" "dlatbs_" %%DLATBS %DLATBS)
    ("ZTRTRI" "ztrtri_" %%ZTRTRI %ZTRTRI)
    ("ZHBGVD" "zhbgvd_" %%ZHBGVD %ZHBGVD)
    ("ZLAQPS" "zlaqps_" %%ZLAQPS %ZLAQPS)
    ("CLAQR3" "claqr3_" %%CLAQR3 %CLAQR3)
    ("DGBSV" "dgbsv_" %%DGBSV %DGBSV)
    ("CUNGRQ" "cungrq_" %%CUNGRQ %CUNGRQ)
    ("ZHBEVD_2STAGE" "zhbevd_2stage_" %%ZHBEVD_2STAGE %ZHBEVD_2STAGE)
    ("ZGBTRF" "zgbtrf_" %%ZGBTRF %ZGBTRF)
    ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF)
    ("CLAR1V" "clar1v_" %%CLAR1V %CLAR1V)
    ("ZPBTF2" "zpbtf2_" %%ZPBTF2 %ZPBTF2)
    ("ZHESVXX" "zhesvxx_" %%ZHESVXX %ZHESVXX)
    ("DPOTRF" "dpotrf_" %%DPOTRF %DPOTRF)
    ("CGELQF" "cgelqf_" %%CGELQF %CGELQF)
    ("DLARGV" "dlargv_" %%DLARGV %DLARGV)
    ("ZUNMRQ" "zunmrq_" %%ZUNMRQ %ZUNMRQ)
    ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS)
    ("DGEMLQT" "dgemlqt_" %%DGEMLQT %DGEMLQT)
    ("SSYRFSX" "ssyrfsx_" %%SSYRFSX %SSYRFSX)
    ("STRRFS" "strrfs_" %%STRRFS %STRRFS)
    ("SLASQ2" "slasq2_" %%SLASQ2 %SLASQ2)
    ("DSYSVX" "dsysvx_" %%DSYSVX %DSYSVX)
    ("SGESVDX" "sgesvdx_" %%SGESVDX %SGESVDX)
    ("SGELQF" "sgelqf_" %%SGELQF %SGELQF)
    ("CGELSS" "cgelss_" %%CGELSS %CGELSS)
    ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF)
    ("DLARRR" "dlarrr_" %%DLARRR %DLARRR)
    ("ZHESV_AA" "zhesv_aa_" %%ZHESV_AA %ZHESV_AA)
    ("CGBRFS" "cgbrfs_" %%CGBRFS %CGBRFS)
    ("CGSVJ1" "cgsvj1_" %%CGSVJ1 %CGSVJ1)
    ("ZTGEXC" "ztgexc_" %%ZTGEXC %ZTGEXC)
    ("DGERFS" "dgerfs_" %%DGERFS %DGERFS)
    ("STGSNA" "stgsna_" %%STGSNA %STGSNA)
    ("ZGGES" "zgges_" %%ZGGES %ZGGES)
    ("CGECON" "cgecon_" %%CGECON %CGECON)
    ("CGTCON" "cgtcon_" %%CGTCON %CGTCON)
    ("SRSCL" "srscl_" %%SRSCL %SRSCL)
    ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ)
    ("SSYCONVF_ROOK" "ssyconvf_rook_" %%SSYCONVF_ROOK %SSYCONVF_ROOK)
    ("CTPLQT2" "ctplqt2_" %%CTPLQT2 %CTPLQT2)
    ("SGEQRT" "sgeqrt_" %%SGEQRT %SGEQRT)
    ("ZGEQR2" "zgeqr2_" %%ZGEQR2 %ZGEQR2)
    ("SLASYF" "slasyf_" %%SLASYF %SLASYF)
    ("ZSPSV" "zspsv_" %%ZSPSV %ZSPSV)
    ("CLAQHE" "claqhe_" %%CLAQHE %CLAQHE)
    ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK)
    ("CHPEVD" "chpevd_" %%CHPEVD %CHPEVD)
    ("DSBGST" "dsbgst_" %%DSBGST %DSBGST)
    ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR)
    ("SLARTGS" "slartgs_" %%SLARTGS %SLARTGS)
    ("ZHESWAPR" "zheswapr_" %%ZHESWAPR %ZHESWAPR)
    ("CLAED0" "claed0_" %%CLAED0 %CLAED0)))

(COMMON-LISP:EXPORT '(%ZUNMTR %SSYEVX_2STAGE %DGBTF2 %DLARSCL2 %DPTSV
                      %ZLARFT %SLASDA %SPOEQUB %ZPPSVX %DTZRZF %DSYRFSX
                      %CHETRF %SLAEV2 %CTREVC3 %CTRSYL %SGGEV3 %SGETRF2
                      %STGEX2 %SPPTRI %CPTSVX %DSYGS2 %CLA_PORPVGRW
                      %SLARZ %CHECON %SOPMTR %STFSM %ZLAIC1 %DTREXC
                      %SGTTRS %CLATDF %ZLAQGB %CGERFS %SLAMRG %ZTRCON
                      %DGESVD %DSYTF2_RK %SPOSVX %CHPGST %DSTEV %CLAG2Z
                      %SSPSVX %DSBGV %ZUNMLQ %SGESVXX %ZLAQHE %ZLAESY
                      %SDISNA %DGEHRD %DGETRI %DPPTRF %SSFRK %DTBCON
                      %ZUNGRQ %DGEQRFP %STRTRS %ZGESVX %SGEEV %SSYGST
                      %SLARRK %CLAQR1 %SPPRFS %DLALSD %DLANTR %DLASET
                      %ZSYSVXX %ZLARZT %SSTERF %SSYTF2_RK %ZSPMV
                      %DSYTRF_AA %CGEEV %ZGSVJ0 %ZTGSJA %CLATPS %SLANGE
                      %SLA_SYRFSX_EXTENDED %ZLAQHB %DLASDQ %ZGGGLM
                      %CTRTTP %ZPFTRI %CSPRFS %STREVC3 %SLARRD %SGETRS
                      %STFTTP %ZSYTRS %SGGHD3 %CTPTRS %SSYTRS_AA %ZHPSV
                      %CPBTRS %SGGBAK %ZLARTG %DLASD3 %DTPLQT2 %CLAQSB
                      %ZLAHEF_AA %ZSYRFSX %SORM22 %SGERFSX %ZSTEDC
                      %ZGGRQF %SLALS0 %DTPRFB %ILAPREC %SPPEQU %DLANGT
                      %SGEQL2 %ZLA_GERCOND_C %SLAPMR %DGGES3
                      %ZLA_HERCOND_X %SSYGS2 %SLAED9 %ZSYMV %ZLAED8
                      %DLASQ5 %CLASET %ZPOSV %DSYSV_RK %ZGEHRD %ZGECON
                      %SSPEV %ZLA_GERFSX_EXTENDED %SLAED7 %ZGEMLQT
                      %CGBCON %SPORFSX %ZHPGV %ILAZLR %ZLARSCL2
                      %DORCSD2BY1 %DLAGV2 %CHPGV %DGELQT %ZLAED0
                      %CLAQGB %CHESV %CLAHQR %CPPTRI %SLAEIN %DSTEVX
                      %ZUNCSD %DSYRFS %CSPMV %CPTEQR %DGESC2 %ZGETRF2
                      %ZHETRD %SSYTF2_ROOK %ZHPEVX %CHEGS2 %SLASQ5
                      %CPPEQU %SPTSV %ZHETRD_HE2HB %CLARZB %DSYTRS_ROOK
                      %SGBTRS %CSYCONVF %ZTRTTF %CLA_GBRPVGRW %CLASCL
                      %ZLANSB %CGEEQUB %CUNBDB5 %ZLAEV2 %DLASY2 %ZLAHEF
                      %DSPGST %CLANHS %ZGETRS %DLAED5 %ZPOSVX %SGGES3
                      %CUNGQL %SLASQ1 %DTPCON %DLAGTM %SLAQSB %SLARFG
                      %SLATRZ %SLATBS %CLA_GERCOND_X %CTGSYL %DLASYF_RK
                      %SLASDQ %ZSYTF2_RK %ZLAPMR %DGESDD %SLANST
                      %SPFTRI %DSYGVD %SPBSTF %DLATBS %ZTRTRI %ZHBGVD
                      %ZLAQPS %CLAQR3 %DGBSV %CUNGRQ %ZHBEVD_2STAGE
                      %ZGBTRF %DGEQLF %CLAR1V %ZPBTF2 %ZHESVXX %DPOTRF
                      %CGELQF %DLARGV %ZUNMRQ %DLAGTS %DGEMLQT %SSYRFSX
                      %STRRFS %SLASQ2 %DSYSVX %SGESVDX %SGELQF %CGELSS
                      %DGGRQF %DLARRR %ZHESV_AA %CGBRFS %CGSVJ1 %ZTGEXC
                      %DGERFS %STGSNA %ZGGES %CGECON %CGTCON %SRSCL
                      %DLASSQ %SSYCONVF_ROOK %CTPLQT2 %SGEQRT %ZGEQR2
                      %SLASYF %ZSPSV %CLAQHE %DGEBAK %CHPEVD %DSBGST
                      %DHSEQR %SLARTGS %ZHESWAPR %CLAED0)
                    '#:MAGICL.LAPACK-CFFI)

;;; End of file.
